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Introduction 


With this book, and your Timex/Sinclair 1000 or your Timex/Sinclair 
1500, you’re set for a number of adventures. Despite its small size, 
Timex/Sinclair 1000 and 1500 are computers of quite immense power, 
and this book contains 70 programs designed to show you just how great 
that power is and how flexible your new computer can be. 

The programs are divided into eight sections: 


e Moving graphic games | 

¢ Driving games 

¢« Board games and simulations 
¢ Card games 

- Brain games 

¢ Word and letter games 

¢ Educational programs 

¢ Utilities 


The section headings give some idea of the flexibility of the computer, 
and of the exciting range of programs in this book. We’ve got a wide range 
of games for you, from Dragon’s Gold, Breakout, and Galaxy Patrol to 
Checkers Seven, Fastermind, and Tic Tac Toe. All the programs contain 
ideas that you can adapt to enhance your own programs. 

But the book is not all games. Games are great fun and one of the 
reasons that personal computers are as popular as they are, but many 
games do not even hint at the complete potential of the computer. To 
show how sophisticated a calculating and computing machine you have 
on your hands, we have included a range of programs to aid you in your 
day-to-day life. The Utilities programs and Educational programs alone 
will justify the purchase of your Timex/Sinclair 1000/1500. If you wish to 
plot histograms, solve equations, learn Morse code, or improve your 
typing, you'll find programs here to help you. And we’ve even got a 
program to keep tabs on your checking account. | | 

For your convenience, the amount of memory required to run each 
program is indicated with each game. 


Tim Hartnell 
London, 1982 


Protector 


In this program, you are given the task of protecting a defective part of 
the forcefield guarding Earth. A difficult task indeed. Certain aliens, who 
do not have kindly thoughts about dear old peace-loving (!) Earth, have 
also detected the weak spot in our defenses, and try to break through the 
field. 

The field can stand one attack on any part, but this weakens that part. 
Any weak section that receives a second hit causes the collapse of the field 
and so leaves Earth defenseless. The field will also collapse under the 
strain of having more than nine weak spots along its length. 

Your task is to biock the attacks with your craft. You can restore any 
weakened part of the field directly below you by pressing ‘“‘F.’’ The “‘5” 
and ‘*‘8” keys control your motion, moving you in the direction of the 
arrow on those keys. 

There are five skill levels, with one the easiest. Since the first few 
levels are really only for practice, the scoring system is biased toward the 
higher and harder levels. Failure, I’m afraid to say, is inevitable, because 
the aliens continually speed up their attacks if the preceding waves fail. 
Your score is given at the end of the game, along with the option of a 
second or subsequent game. Pressing “‘N”’ at the end will end the game. 

Protector was written by Paul Toland. 


S CLs 
12 LET Dg=" 


2Q PRINT AT 


3O@ PRINT AT 

408 PRINT AT 
LEVEL 1-5" 

SQ IF INKEY 
CR INKEY$:"S" 

60 LET 


L > =U 
90 LET &=1 
100 LET Vel 
110 LET W=2 
120 FOR I=1 
130 LET A= 
140 FOR H=s 


4-4-4 
ee 


12,3; "8"; TAB 27; '@ 


8.10; "PROTECTOR" 
28,5; "ENTER SKILL 


$=" OR INKEY$<"°O" 
THEN GOTO 5@ 
L INKEY$#2-1 


i 20 
(RNDee3) +4 
19 STEP ¥ 


Moving Graphic Games 


180 LET B=8+:E= 
199 PRINT AT is 
2eO@od IF INKEY $<. :" 
THEN GOTO 222 
2e1l@ LET itsitJ-2 
220 LET Os$(63 =f 
2a0 PRINT AT H.ASS 
249 NEXT #H 
e5e IF B=A THEN GoTo ega 

Ai =" RE OOR W=S3 THEN G2 


"8 | 
" OR OS 1B) ="m" 


319 Sora 122 | 

seQ PRINT AT &,0, "YOU FAILED - 
THE FORCE FIELD IS BROKEN RAFTER 
ae 1) #2041143" WHS SCORED" 


SQ PRINT ..°00 yYGu WANT TO 
Fo PROTECT ANOTHER PLANET _ 
340 IF INREY ci " TREN GOTa 3428 


250 IF INKEY$<::"°N" THEN PRLIN 
S60 STOP | 


Ground to Air Missile 


You have ten Ground to Air Missiles (GAMs) under your command. 
Your job ts to destroy the alien ships (which resemble Terran letter V’s) 
before they land on Earth and destroy it. If they land, the game is over, 
and the number of ships you destroyed is shown in the top left-hand 


corner of the screen. 


The “1” key moves you left, ‘‘O”’ moves you right, and “‘2”’ moves you 
up the screen. You must get the ‘‘+”’ in front of the advancing V’s to stop 
them. The screen clears after each successful hit, and at the end of the 


game. 


Ground to Air Missile was written by Aidan Walsh and Kevin 


McCarthy, Cork, Ireland. 


“Th 


a sPIT-FPI TO VRL "SS" 
e LET A8siiebL “20" 
2 LET Beal al" 
4 LET xshPT-FT 
S& LET ¥=6 
6® FOR FsPI-FITo VAL "63" 
7, PLOT F ,BT-eT 
S NEXT F 
S PRINT 4T 4#&.B; CHR 21 
18 PRINT AT x.¥; CRRS§ S323 
1i PRINT aT 4.6. CHRS @ 
te LET 2ZerInT ‘¢RNDsvAaL "33 
is LEY xSe3e2 
wot LET Versi ZSVAb 2") - 1 ZSVAL 
_ Ls 2F INKE,s=°' 9" THEN LET AsA+ 
& 
: ia BsoB+ i IGNKREYS=x"O0"1-+-f INKEY 
1? LET AsA-  INKEY$s"2") 
183 IF wex SHD Bey OR X>2e2e THE 
ee Te 2! 
13 GOTO Vee Ca" 
20 CLS 
el IF Asx TAEN NEXT 
22 IF xsuiaiL “oe” THEN PRINT WN 


Breakout 


In this version of Breakout, you control the bat on the left-hand side of 
the screen using the ‘6’ and **7” keys to move your bat in the direction 
shown by the arrows on the Keys, to try to keep the ball in the ‘‘court.” 
The aim 1s to demolish as much of three walls as possible. Walls further 
back give higher scores. You are allowed five balls in each game, and a 
score over 2000 gives a new game. 

To set the high-score counter, type in LET H=0 before you run the 
program and then start the program by entering GOTO 5 rather than 
RUN. If you save the program after you’ve played it and then start 
running it again with GOTO 5, the old high score will automatically be 
your target for the new game. 

The game is limited, to some extent, by the speed of the computer. 


S&S FaAND 
1Q@ LET T= 
TS. (Ebr 2c 
7, LET = 
eQ LET TE=e 
25 LET gsteil 
SOQ LET B&se2e85 
40 PRINT AT 1.8) \ pads! 


SQ PRINT ., TOTAL &@ BALL Nu 


SQ PRINT HIGHEST Stare "; 
= 
189@ FOR Tse To 16 
1192 eal aT T.12; '98,%.4. Ril 
Lle2Q NEXT 
120 LET &8=-ji 
i428 LET isi 
520 LET x=sii 
16Q@ LET vwsINT ‘RNOG4iei¢+é& 
165 LET SsPEEr JLESSE+PEERK Lestat 
25684] 
1F¥@ LET TEsT&+i 
LEQ GOTS 6 (TRs8: ¢2104+e00 
2QQ FORE Fe8ar .TB+2é 
ee PORE &+F 9 
220 LET Bshetae (INK EY $2 5°82! -Bae4 
(INK EY $o° 750 
edQ PORE P+. & 
2eSQ PORE Peysbiree . 8 
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Breakout 


(LET «ss +S 
et — i ee 
 : c mY mE 
LEr {=e i 
LET js ROS 
— 


An ie oe 


TCO 


+4 
“TH 
" 


W218 THEN LET @s=- 


BM o«fste TREN LET we- 


PORE +e oF 
moti ahs bite! +S0+TEO 
LET Tate: LEB-Ni +5 
PAINT AT be,.8:T7 
LET Worm 
SOT o ei 43 Lie 
Os EN GOTO 28 


a oe oe oe eee ee ee oe ned 


I. te0 ft f= > Ct 0 


INPUT As. 


Zoomer 


A long bar ts printed on the screen, starting from a random position. A 
projectile then makes its way across the screen from the left. When you 
think the projectile is over the hole in the bar, press any key. If you're 
right, you'll get a point. You'll be pleased to see how your skill at this 
program improves as you continue. 

Zoomer was written by Nick Wilson. 


14 REM ZOUOMER 
11 REM NICK HILSON 


SO FOR Isl To Be 
40 ee $+" 


5>@ NEx 

55 CLs 

6Q@ LET L=Int ea 
Y@ PRINT AT L.OIMS 


SO LET K=InT BND SSL 


500 LET JSINT (RND#21) 
105 IF dsl THEN GoTo 1eae 


13Q@ LET Wen 
140 LET Neel 
i15@ PRINT AT st, 


158 IF Need THEN GoTa ss 

160 IF INKEYS= TREN GOTS Lee 
170 IF ‘tisk oR ski¢] DR Usk -] TH 
EN GOTG i3¢ 

180 GOTS Lee 

210 FOR T=Hli TS 26 

220 NEXT Tf 

230 IF INKEYS$::°" TREN 8OTo bee 


‘ont 
250 PRINT AT 12.8, °°TRY AGRON 


eS0 IF INKEYsS="" THEN GOTO Zee 
eSO IF INKEYs$=y" THEN SOTO 5 
290 STOP 


Thunderbolt 


You are the gunner on a ground-station outpost, and it is your mission to 
stop spy planes from flying over you. The computer is your monitor, and 
On it you see the planes and your ten missile launchers. 

As the enemy planes fly over, press the number of the missile that you 
want to fire. The missile then zips up the screen, either knocking the hell 
out of the enemy, or totally missing it, depending on your skill. 

There are two extra features that make this game difficult: (1) The 
plane keeps moving after you ve fired, so you really have to fire in front of 
It to score a hit, and (2) the missiles are not reloaded until you manage to 
bring down one of the enemy. You can change line 100 to any design you 
like, so long as there’s a space at the start and a graphic H in the middle. 
The game is simplified if you add more graphic H’s to the design. 

Thunderbolt was written by Nick Wilson. | 


18 FEM THUNDERBOLT 
Li REM NICK BILSON 
le RAND 
eW@ LET B= 
@e tLET S=INT (RNGDse16) 
2S LET F=2 
26 CLs 
~8 PRINT AT 22.8; 
4Q FOR [=i Ti Be 
SQ PRINT ‘“#F'; 
EQ NExT 
YO PRINT AT 22,28; ° 
SO PRINT AT 23,20: ° 
SQ PRINT 4aT &.6B; 
35 LET B= 
36 LET S841 
SY IF Ssel THEN Fuh 
18a PRINT AT £.6:" eR" 
230 IF INKEY$<::°" THEN SOTaG 17a 
TiS TF Fel THEN GOTa 248 
12@ LET Bs8+i 
1408 IF Beer THEN GOTO 3a 
i886 GOoTa lide 
1°70 LET ASSsINrEr $s 
TPS IF Coce 4ge<28 GR EFODE As:3FT 
TREN GOTO 33d 
130 LET Rsee8+UARL Ags 
H2Oea PRINT AT 22.R:; 
zel@ IF FPEEFK ‘FEERK JLESSS+S56h4FEE 
* JESBSSs: <:]4 THEN GOTG 11 
ee LET Fs} 
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e2e5 LET Feed 

eo@ GOSUEB Gid 

e490 LET Par-i 

aed5 IF Psb-2 THEN GOTO 2359 

2eS50 PRINT AT FURS", AT Pel RR; ” 


eSe PRINT AT F-1.4&: 

253 IF PEEK ‘PEER Ll6S93+2554FEE 
KF 16399) 2126 THEN GOTO sve 

er@ GOTO Lae 

2eS@ LET Fev 

2&5 PRINT AF F+lik, ” 


™, =, =, =, - + TT 
288 SOTO ii 


Surge 


In Surge, written by Tim Rogers, your ship (the *‘S’’) is somewhere out in 
space near a strange asteroid belt. The asteroids are slabs. Your ship has a 
shield, which means the asteroids cannot destroy your ship. The only 
problem ts that you get pushed up the screen by any slabs you come in 
contact with. The aim of the game is to stay on the screen for as long as 
possible. The lower down you are, the more points you score. You move 
your ship to the right by pressing any key, and it drifts left when you 
release your finger. 

The machine code routine in the REM statement takes the place in 
line 80 of the BASIC line IF PEEK (PEEK 16398 + 256 * PEEK 16399). 
There are seven characters after the word REM, and in decimal they are 
42, 14, 64, 78, 6, 0, and 201. All but CHR$ 78 can be entered from the 
keyboard and so 78 has to be POKED, by line 10. | 


REM E: RRND TF TAN 

LET H=1] 

PORE is517.738 

LEY S-H-H 

LET U=s18 

LEY THe 

LET Fel 

PRINT AT U.P: " 

LET P=P-H/H¢s (P:H-HI 

LET Fs Pe tINKEY$¢3" "i a2e iP eT 


SCROLL 
PRINT AT U.F: 
IF USR LE&S1¢sCODE "#' THEN 


“RNG; Fee 
LEY S54 
GOTO 48 
IF H<3S THEN LET H=5 


PRINT AT U,P; 'SURGE" 
PRUSE <4E4 
SOTO 15 


ll 
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Pussy-Get 


Your job 1s to drop seven weights (printed across the top of the screen) 
onto six cats who run across the bottom of the screen, one after another. 
If you press the keys “1” to **7” the corresponding weight will drop and 
the cat will stop running until the weight hits it or sails on past. If the 
weight misses the cat, the frisky feline will flee. However, if the cat gets 
smashed by the weights, it will turn into a cross. (Some heavy symbolism 
is in order here, as you can tell.) The game can be made more difficult by 
removing lines 330 and 370; this will speed up the game, but in so doing, it 
removes the checks on the human cheating. 

If you are a cat reading this, you’re hereby given permission to 
change the program into Human-Get. 

Pussy-Get comes from Nick Wilson. 
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Pussy-Get I3 


Oo GOTO Bee . 
O PRINT AT L?’.e 
OM FOR Tel Tu 4 
O PRINT TAB mM: " 
O NEXT 7 
mw GOT Lee ) 
MW LET AHS$SINKEeyY $ 
O TF Bs. SR Age FF" THEN Go 
1865 
A LET SsiealL As 
LET xsAiA: 
LET J=su 
O PRINT AT 2; 
OM IF PEER (<'PEEK Llesss+e564+PEE 
SSSi<s:2te8 THEN GOTO les 
SEQ PRINT AT oo. mi" “LAT U4], 
+e 1 x : oe i 
IF J+e2 S24 


4 
“TH 
TT 
Mm 
rm 
“ 

Th 
zi + - 
es 
x 
ip 
mas 
Ct 
fq» ip 


. te S+256¢FEE 
Sa:2:8 THEN GoTSs So 
LET wis wi¢i 
SOTO 2S 
LET Js 
PRINT AT £43,%; ,-AT 20, 
GOTO dee 
PRINT AT 15,2 BT LS. =: 


LET CATS =sCAaTs-1 
IF cATS=2sa THEN GoTo Sia 


SOTO 152 

CLS 

PRINT AT 2.32; °TRY AGAIN F? 
IF INKEY $= “ THEN GOTa S38 
IF INEEY$=''% THEN RUN 
STO 
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Snake 


In this program, you must guide your snake, using the “*5,"'"°6,""*"7,"" and 
8" keys, toward the $’s in order to grow. You move in the direction of 
the arrows on those keys. You must not hit the wails or yourself. The $’s © 
are on the screen for a limited time only, so you must rush. The aim of the 
game is to make your snake grow as long as you possibly can. At the end 
of a game, you get a new game by just — ENTER. To stop, first 
press "*N” and then ENTER. 

Even though this game ts in BASIC, it ts very fast, because of some 
clever string handling. 

The game was written by Paul Toland, whose best score is 55. Can 
you beat that? 


S cis 
10 LET 3$-+'Nig'’ 
20 LET L= 


ee 
6Q@ FOR I=l Ta 
tt B'': TAB 31; 8 i 


$2 PoeeL, "SNAKE SEIEDESRISNAKE SEE 
SS SNAK : 

Oo4 SRtaT 1; "THE MONEY SNAKE ON 
LY GROWS IF FED WITH $$$.",,°Y 
COU MUST GLICE IT TOWARDS THE $ T 
RAKING CARE NOT TO HIT A WALL OR 
EC Sseces 

100 LET MeL 
110 LET P=PEEK 16396+256+#PEEK 1 
ae 


SINT (RPND43041!1¢4INT (PR 
125 IF PEEK (M+P):>@ THEN GOTO 1 
132 POKE F+M,15 


140 FOR =i Ta 38 

1506 LET S=stCaope S$1t13 

16Q@ POKE F+CODbE S$(tL!,@ 

165 LET IS=sINkervs 

178 LET S2S4itig]Na"B°1 -(I$s"S"1 4! 
I SURUPSGS-1 ISS Phy eSSeClI ec 'S" 0 
RIs:"S"i1 e(5-COpE §$$(2) 3 

175 LET NsRPEER (P4583) 

er IF NetlSs AND Ne:@ THEN GOTO 
f — ae y 


Snake 


1390 LET Leite: te 

200 PORE Pee. 

21lQ@ LET S8$=t ans S$¢+¢S56(1 TO Lei) 
240 NEXT I 

250 IF PEEK ‘im+Pi1213 THEN PORKE 


te 


2608 GoTa 
272 PRINT S SAME UP--/Y0OU MANAGED 
TO GROW TO .°R LENGTH OF "'5L,"T 
BY AGAIN *" 

250 INPUT As 

230 IF Ags: '°N' TREN RUN 
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Pharaoh’s Revenge 


This is an early Egyptian version of the “city bomb” type of programs, in 
which you fly over a city, leveling skyscrapers in front of you with bombs 
dropped from your plane. 

In this game, you're flying (on a magic carpet?) over a pyramid, and 
you have to try to destroy as little of it as possible, while aiming for a spy (a 
Phoenician merchant, who has not paid his transit taxes or spice import 
duty) hiding in the base of the pyramid. Press any key to drop a bomb 
onto the pyramid. You can make the game easier by adding 105 LET 
G=SIN PI. 

Pharaoh’s Revenge was written by Nick Wilson. 


PRINT ar 


18,6; 
LET AS= id ees 


FOR I=s1 TO 23 STEP 2 

40 LET tCzst-i 

SY PRINT TAB ©; AS TO TT) 

69 NEXT I 

?@ PRINT AT e1,15;5°0" 

Yo PRINT AT =.6:; 

SQ IF RND:>.34 THEN LET S=S+41 


1 

1e0 IF Bs2" THEN GOTO 75 

12S IF F=l1 THEN GOTO 200 

130 IF INKEYS$="" THEN GOTO 1908 
140 LET Fe=i 

145 LET J=S4i 

160 LET O=6+¢e 

179 SOoTa 10¢@ 

200 PRINT AT 3-21.60," "; AT J,0B;" 


2eQOl LET JsJ¢+2 

205 IF J:see THEN GOTO 289 

210 PRINT AT JU:D:; 

220 IF PEEK ({FEEK 16398+256+PEE 
Kk 16S93) =Se THEN RUN 

230 PRINT "#" 

250 GOTO ie 

260 LET F=8 

e’?O8 SOTO 10e 


Dropper 


You have to fill a glass of water with stones as quickly as possible, in this 
intriguing game from Nick Wilson. 

You'll see the glass, full of water, printed on the screen when you 
press RUN. There is a barrier along the top of the screen, and the stones 


move along the bottom of it. When you think a stone is above the glass, _ 


press any key, and the stone will start to fall. If it lands outside the glass, 
another stone will appear, so you can have another try. If, however, the 
stone falls into the glass, it will fall to the bottom, or rest on top of another 
stone. When you've filled two complete rows along the bottom, the game 
will be over, and you'll be told how many stones it took you to fill it. 

It youd like to fill three rows before the game ends, change line 240 
to [IF K=19 OR K=18 OR K=17 THEN LET S=S+1. 


10 REM DROPPER 1 
11 REM NICK tiTLson 
le LET F=a 

25 LET Khel 

14 LET S=] 

15 LET Fes 

16 CLS 

20 FUR I=] Tio 31 


13@ LET x=x4i 

135 PRINT AT £.xeb:” 
349 FF «sti THEN GOT 220 
LQ TPF INKnmEys="' THEN @aTs 


195 IF Ke2ti THEN GoTo Zea 


S40 LET TsPEER (PEEK 1629542583 
PEEK Lata: 

2iS IF Tsize THEN GoTo 240 

22OQ PRINT “BR: AT K-t1PI-PT: M4: 
Ro OT 

220 GoTo ise 

H$40Q IF Keia De x21 THEN LET 22 
=+] 

255 ERINT AT &-1.4: "— 
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Moving Graphic Games 


258 IF 222 THES COTO Gli 

eee LET Fs 

2zeS PRINT AT &.08; 8-5 

27O GOTS ise 

2zSQ LET xsi 

28Q LET Ese +i 

SQQ@ IF Fsli TREN GoTo B20 

S108 GoTsa se 

SLL PRINT AT @.8, °MELL GUNE .,., 
YOU TOOrR “:e8: °° PRSSES" 

Sh2 6072 2232 

S20 PRINT AT 2.8; (RAN OUT OF TI 
ME so »SLURED om = 

2338 on BT $.0: "TRY AGAIN 


a 
Cu 
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Space Docker 


From deepest space comes Space Docker, which simulates the docking of 
two space ships. You'll see the hulls of the two ships on the screen, with 
your ship on the right, and an enemy ship on the left. The aim is to line 
your docking tube up with that of the other ship, using the “2” and “Z”’ 
keys, and pressing “P” when you think you’ve docked. This sounds 
simple, but there is a catch (as usual). Each docking tube is an inverse 
space. [he enemy’s docking tube is moving in random up-and-down steps 
in an attempt to stall you, so you need to be reasonably quick with the 
keyboard finger to change directions as rapidly as the other docking tube 
is doing. There’s also a time limit working against you. If you don’t dock 
quickly enough, the enemy ship will blow up and take your ship with it. 
At the end of the game, you'll receive a rating, depending on how 
well you did. All the graphics in the program are from the “*“H”’ key. 
Space Docker was written by Nick Wilson. 


1Q@ REM SPRCE-COCKER 
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lea LET = 

12 LET k= 

3Q FOR T2i To 21 
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SQ NExT 

Si PRINT aT @.1:8 

65Q LET OGSsINT i(Rnbee0) +1 

TQ LET BGsINT tRNOse0!1 +1 

P72 FOR K=i Tl 2600 

SQ PRINT AT £3,14, "HR', AT GS-2. 
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155° “2a? Seti. 5), °° ” 
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MW GOTO 28 
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128 IF INKEY$="2" AND SPily THE 
NM LET 30=5sC41 
leo LET L=RND 
130 IF t:.8 THEN LET Fel 
140 IF Lt<.5 THEN LET P=-l 
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OTTO 1? 
146 LET O2=sD34+F 
17O@ NEXT K 
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173 PRINT AT bS,14," 


i74 GOTO 


oil 


I | 
ET 53-54 (2e0@0-K) 
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250 GOTO Si 
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Galaxy Patrol 


Galaxy Patrol places you in command of a galactic patrol ship, which . 


bears an uncanny resemblance to the letter V. 

Your V-wing fighter starts with 50 gallons of fuel that slowly de- 
creases. The amount of fuel remaining is shown in the top right hand of 
the screen (in the screen printout the fuel figure is 33). 

You refuel your fighter by hitting any of the random fuel dumps 
(Inverse spaces). Each time you run through a fuel dump, you get 25 
gallons. You control your craft by touching the ‘‘M” Key. Holding down 
the *‘M”’ moves your craft right; leaving the keyboard untouched allows 
your craft to drift sideways to the left. The game ends—and your score is 
displayed—-when you either run out of fuel or hit an asteroid (asterisk). 

Line 130 looks at the PRINT position (set by the last PRINT AT in 
line 110), and if it finds a 23 (asterisk) there, it stops the game, printing the 
score (S) and using an unassigned variable (D) to halt the game. If it finds 
a 128, the computer knows you are running into a fuel dump, so the fuel is 
incremented by 25 (LET F=F + 25). Line 145 stops the game if you’ve 
run out of fuel (that is, if F equals zero). 

Galaxy Patrol was written by R. Stubbs, based on a program by Tim 
Hartnell. 
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Sea Raider 


Sea Raider is more difficult to play than might be thought at first. You 
have to try to destroy a battleship by bombing it with your plane as you fly 
over it. To make this more difficult, you fly twice as fast as the ship and 
from time to time are buffeted by winds, which increases your speed even 
more. 

You have 20 bombs in this version of the game, but you can easily 
change this total by changing the value assigned to M in line 10. You fire 
by pressing ‘‘F.’’ You don’t see anything fall from the plane, but if you hit, 
you are rewarded by a rather odd explosion on the ship, which is immedi- 
ately and miraculously restored and continues on its tireless trip from left 
to right. There is a time limit of 300 seconds, and this is reduced steadily 
while the game 1s progressing, although you see a new “‘reduced”’ figure 
only every so often. The game ends when you run out of bombs or out of 
time. 

The maximum possible score is 5340, but it is practically impossible 
to get this within the time allowed. 

Sea Raider was written by Martin Frobisher. 


1 REM SEA RAIDER 
2 RE BY 
3 REM MARTIN FROBISHER 
4 REM 
S PRINT AT 17,0; "------------ 
18 LET M=20 
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Balloon Buster 


Moving lett and right at the bottom of the screen, you fire upward at a row 
of balloons that are floating against the ceiling. You have to try to burst 
them all. You move using the *‘0” key to go to the right, the “1” key to go 
to the left. 

This sounds pretty simple, until you discover that if an empty space is 
fired into, another balloon appears, thus ensuring it will take longer to 
burst them all. The fact that you have no control over the firing rate 
complicates matters even further. To alter the frequency of fire, change 
the .91 in line 125. 

You can change the number of balloons at the start of the game, by 
altering the 9 in lines 13 and 50. The balloons can be changed to any 
character you like, providing that you change the 52 in line 190 to the code 
of the character chosen. 

Nick Wilson is the author of Balloon Buster. 
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Balloon Buster 


LET Ker+i 

SOT 242 

PRINT 
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I Love the Sound of 
Breaking Glass 


The object of this game ts to protect a plate-glass window from projectiles 
that are being hurled at it. You do this by moving yourself up or down, by 
pressing the “2” and “Z”’ keys. If the ball hits you, it vanishes, and 
another one appears in its place, If you let the ball go past, it will smash 
the window and your score will be given. You can make the game simpler 
by adding a few dummy loops to slow it down. 

I.L.T.S.O.B.G. was written by Nick Wilson. 
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Letter Chaser 


Let your ‘Q” run around the screen, to ‘‘run over” the letters you see in 
alphabetical order. You enter your speed setting for the game (from one 
to five) and then use the “5” and “8” keys to move in the direction 
indicated by the arrows on those keys. The game ends if you hit a letter 
out of sequence. Press ENTER at the end to get a new game, or ‘“‘N,”’ 
then ENTER, to stop the program. You'll find yourself returning to this 
game, time and again, to try to complete it successfully. 
Letter Chaser was written by Paul Toland. 
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160 NEXT I 
110 PRINT LETTER CHASE 
120 FOR 1T=35 TO 63 


130 LET RX=SINT (RND#3Q) +1 
148 LET RY=INT (RND#19) +2 

150 IF PEEK (P+RX+RY#33) > THEN 
SOTO 142 

160 PRINT AT RY.RX;CHRS I 

170 NEXT I 

16Q LET I$=INKEYs 

185 LET AsiTg="6") -(Igs"5") +iTs 
eae | S 


138 oP Cet @[sg2'S6" -(Igex"P "14018 
on tt | | 3 

2MQaQ PRINT AT ¥.x;" " 

2eie® LET x=x+e 

eeQ LET yoyv4 

230 LET NsPEER (P4V74334+x} 

240 PRINT AT ¥.e;3 "oO" 

e42 FuR Js] To 5 


29 


30 Moving Graphic Games 


aad NEXT 
250 IF Nad THEN GOTG 1858 
ZE@ TF NitNio THEN GOTO 318 
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SQ IF Nc <84 THEN GOTO 1889 
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Jet Fighter 


You are the pilot ot a defender jet. You must line up the enemy plane (a 
zero) in your sights, using the ““S,”’ “6,” **7,”" and “8” keys and moving in 
the direction of the arrows on those keys. You destroy the plane by 
pressing the ““F”’ key. 

However, the enemy jet does not just sit there waiting for you to 
destroy it. You have to cope with its somewhat random evasive move- 
ments. Since you can control only your own plane, the enemy plane will 
appear to move in the direction opposite to the one you press. 

The game, as listed, is at the beginner’s level. The speed is drama- 
tically increased if you remove line 160, the time display. Press ENTER at 
the end for a new game, or “N,” then ENTER, to stop. | 

Jet F ighter v was written by Paul Toland. 
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Zap 


You are trying to prevent the ubiquitous aliens from landing (the story of 
our lives). They can descend in any one of three directions, straight down 
or diagonally down trom the right or left. 

You must position your craft using the “5” and **8”’ keys (moving in 
the direction of the arrows on those keys), and fire your missile using ““F”’ 
so that the missile intersects the alien's descent path. 

Blocking the alien with your craft will have no effect. At the start of 


each game, you are asked for a difficulty level (zero to five), with zero as 


the easiest level. The aim of this game, as you have probably guessed, is to 
prevent a landing for as long as you can. Press ENTER at the end to get a 
new game, or “N,”’ then ENTER, to stop. 

Zap was written by Paul Toland. 
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Avoid 


Direct your ever-growing snake, using keys “5,” “6,” ““7,” and “*8,”’ so 


that it avoids the surrounding box, its own trail, and the “+.” It is allowed 


to hit five of the pluses before the game ends. Since each move decreases 
the space available, it is advisable to develop some movement tactics. The 
Object of the game is to last as long as possible; your time is given at the 
end of the game. Press ENTER a new game, or “N,”’ then ENTER, to 
stop. 

Avoid was written by Paul Toland. 
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Centropoid 


_ This game is similar to AVOID but it is much more frantic. You (* 


travel around the screen, hitting the “*”’ while avoiding the * 


must hit all ten of the “**” before the game ends. When (if) successful, 
your time Is given. 
Again, motion ts controlled by “5,” **6,"' **7,” and “8, 


new game by pressing ENTER, and stop by entering “‘N, 
Centropoid was written by Paul Toland. 
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Toad in the Hole 


Your task is to steer a ‘“‘toad”’ (reincarnated, it appears as an inverse 
asterisk) into its hole. You'll see the ground and hole near the bottom of 
the screen, and the toad will begin a rapid descent from the top. The *‘0”’ 
key moves your toad to the right, and the “1” key moves it to the left. 
Once the toad reaches ground level, and depending on whether or not 
you got it home, you'll be given a score. You can alter the skill level by 
changing the size of the hole, playing around with the values in line 80. 
The graphic character in line 90 is from the **“H”’ key. Lines 15 to 100 print 
the ground and hole, the routine from 110 to 205 moves the toad, and 


lines 300 to 340 print the score and final message. 
Toad in the Hole was written by Nick Wilson. 
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Minefield 


You are in command of a squadron of tanks in this game written by I. S. 
Howson. Before you lies an enemy minefield through which you must 
pass. How many of your tanks will be lost finding a safe route across? 

When you run the program, the computer will generate a minefield— 
a different one each time you play. Drive your tank across the screen, 
using the forward, up and down keys. If you hit a mine, the tank blows up 
and you must try again with the next tank. These are multiple mines and 
will destroy every tank that hits them. Your score is displayed at the top of 
the screen. If you are successful in finding a way across, the program 
stops, playing a little tune. 

You will find that you get quite good at avoiding the littered battle 
field as the game progresses. 
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Duck Shoot 


A number of strange little ducks fly overhead, some from right to left and 
the others in the opposite direction. In this game by Peter Shaw your goal, 
needless to say, 1s to shoot down the ducks. 

You move your shooting base from right to left using the ‘*8”’ and ‘*5”’ 
keys to move in the direction shown by the arrows on those keys. You fire 
by pressing the *‘Q” key. At the end of a round (when all the ducks have 
been shot) you'll be given a ‘“‘marksman rating.” There is a high score 
feature, so you can try to better your rating from round to round. The 
rating is related to the number of shots it took you to kill all the ducks. 
There is a slight pause after one round before a new one begins auto- 
maticaliy. 


S FORE Lasas.@ 

Y LET HE=s¢8 
10 LET #=i1F& 
15 LET Srse 
ee LET S222 
SQ LET Ag=" By Se Se Th OTs 
40 LET = oe a a” _s sa 

= 
SQ PRINT AT ¢.0:AS..BS 
B@ IF wHsg=" 
| ANNO B=" 
" THEN SOT 
mm Seee 


SQ LET Ashe ( INKREY $="S5") -(INKEY 
=" ee *" 
308 PRINT AT ile. A-3:;" 


S95 IF INKEYs="@" THEN GOSUB 180 


1@@ LET AS$sR$i2 TO 3: +RhS(1L Ta 2: 
1108 LET 8$cs8$izei+B$i Ta 323 
lee GoTo Se 

170 LET BS$sESit8 TO Bsei¢+BSi Ta 


19@0 LET C=A-3 

1005 LET SH=8H+7 

1010 FOR B=i@ TO 1 STEP -2 

1820 LET AsA+{INKEY $=°S") - (INKEY 
$275) 

1038 PRINT AT 2.0:A$..B% 

1040 PRINT AT 12,.AR-3i" de“: AT 
B.c;"—' aT e.c:" ; 
1060 LET AS=SASiG TO +AgSil TO 5 


HS 
1075 PRINT AT -¢.0:;F8..68 


1@8O IF B=4 
N GOSUB i1Seea 
1090 IF &B=e BAND 
No GOSUB 2O0Q0 
NExT EB 
RETURN 


O,8,; 
Be? 4,8, 
=O 


NG IFS "; 3c 
SOGe PRINT 
‘ RS 
3@40 FOR Gal Ta 

SQ50 NEXT G&G 
2806908 CLS 
320708 GOTaG 12 


BSit4eseicert " 
AS(C+eLi<e: 0" " 


Yr fLeyvssdestcei¢ 
5 THEN LET HS25¢ 


Duck Shoot 43 


THE 
THE 


SR: 
“MARKSMAN RAT I 


“BEST 30 FAR I 
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Wagoner’s Walk 


This amusing program, which combines a race/bet theme with graphics, 
was written by Stephen Ormrod. You are attending a race meeting 


between four rather worn-out wagons. You see the wagons before the 


race and can bet on one of them to win. You start the game with 20. 

Lines 10 to 40 briefly explain the rules, while lines 50 to 250 initialize 
the graphics. The shapes are held in a string array, A. The wagons are 
displayed “in the paddock” by the routine from line 480 to line 570. Lines 
480 to 815 deal with your bet. The maximum bet is either your credit 
level, or $10, whichever is lower. The computer will not accept larger bets 
than this, nor will it accept bets lower than $1. OO, or bets made on wagons 
that don’t exist. 

Pll leave you to see lines 820 to 905 in action, rather than explain 
them here. The four lanes are printed out by the routine from 1000, which 
also prints the start and finish lines, plus the wagons. The race itself is run 
by the lines 1158 to 1210. It will take a few minutes for a race to be run. 
Once it has, the screen will fill with the checkered flag, and a ‘“‘bank 
Statement” wil appear. You'll be given the chance of betting on another 
race or of quitting with your winnings. 


eae “MRGONER''S WALK - RU 


15 PRINT .,°YOU HAVE $20. YOU 
HAVE BEEN, °INUITED TO A DAY AT 
THE RACES". °-30 WATCH YOUR MONEY 
»>THERE ARE 


eW PRINT “4 WAGONS IN THE RACE 
; ALL FROM ANERRBY SCRAPYARD - & 
oon Oo TEND TO BE RATHER SL 


eS FRINT .: . “yWOoU RARE INVITED To 
BET ON”, “ONE SF THEM TO WIN, FI 
RST, , "HOWEVER , ¥OU MAY SEE THEM 


IN" , "THE PADDOCK. 
3e "PRINT ;>, FRESS ""C"" TO CON 


TINUE" 
35 IF INKEY$<::"C°" THEN GaTts =& 
4Q@ CLS | 
45 LET cR=28 
SQ CIM Wei4¢.4: 
6@ LET NSidis°grnm' 
YQ LET N$te: = JOE" 
SQ LET Nii: = JACK 
S@Q@ LET Nida: = JOHN 
100 DIM Agi4a,4.7) 


Wagoner’s Walk 45 


198 FOR Nel To 
110 LET Agi. 2) 
2185 LET Agi. 3: 
lea LET ASsStN,. 4: 
125 NEXT WS 
130 LET AsSil. . 
135 LET Asie, ‘ 
14Q@ LET ASI 2 
i Heid ,** 
$ 2 S= Samael aanmaan 
Hid! 
7O@ LET Ati: se 
18@Q LET Ate: =? 
1320 LET Atsisle 
2eQ0eae LET Aidit sl? 
2eie OT! Bid: 
eeQ FOR N=i TS ¢ 
23a NEXT. Ritts <2 


:0, “LAGON: “DRI 
490 PRINT AT 2.9;C§;B§ 
SQQ@ FOR N=i Teo 
S@e PRINT AT &+N,@; ast NUN! 
S05 FOR O=@ TO 31-(74N1 
218 FOR Pai TO 4 
SiS PRINT AT @4+P-1,.0; A$ IN.F: 


Se HEXT 


Lux 
AMM 
> a. a 
“f 

rae 1 


S5Q PRINT |. WHEN YOU HAVE SEEN 
ENOUGH OF. °“THEM, PRESS “ous 
Pas IF INKEY gegen THEN SoTOo Se 

S7a CLS 


S&Q PRINT “ALRIGHT. YOU HAVE §° 


[5 
fee = 
S20 SA -REMEMNBER., THE il 
ER PAYS AT 2 To 1 f+ A BONUS? 
Bur IF “YOU, "LOSE, YOUR STARE Is 
PEDUCTED" 
BOW PRINT “PRESS THE NO. CORRF 


ESPONDING TA* ; THE WAGON YOU WIS 
MH TO BET ON, °°, "AND PRESS "ENTER 


B10 PRINT “'i,2,3 ORF 43" 
S2v INPUT 4! | 
B38 IF o@ AND WeS AND WeINT i 


6S0 PRINT “7 -EBLUT WAGON “lu Ba 
ES NOT ©, RUN _ IN THIS RACE. PLE 
HSE. DO NOT TRY TO CHEAT THE”. 
BOOK IES 2 
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Moving Graphic Games 


S60 PRINT .. 

672 GOTO 6ae 

70@ CLS 

71@ PRINT “YOU BACKED WAGON "3 
720 PRINT “- ";NS(WI;" WILL BE 


YOO PRINT _SUT HOW MUCH DO YU 
U WISH TO BET? (LIMIT. S$; 

740 IF CR<i@ THEN PRINT CR; 

7o@ IF CR> =i THEN PRINT “10° ; 
760 PRINT °: 

76S PRINT .,''- SAME PROCEDURE &A 
> BEFORE" 


778 INPUT ™ 


7SQ IF M:<2:8@ TREN GOTS sae 

78S IF M:18@ THEN GOTO 8@5 

7990 IF N;:CR THEN GOTO 819 

7935 GOTO S20 | 

S@Q0 PRINT ee THE HECK RARE ¥ 
OU PLAYING AT 

SQ2 PRINT '- cOMMON SENSE SHOUL 
D TELL YOU TO BET AT LEAST 4&1" 

SOS PRINT “ROL MUCH DO YOU 


S04 GOTO 778 

S@S PRINT "DON'T BE GREEDY" 
S06 GOTO s&s: 

Sid nee” ". BUT YOU HAVE ONLY 


$15 GOTO sac 
S2Q PRINT “S$",N;" BETTE” 
825 PRINT "THE RACE STARTS SHOR 


TLY..2', THE RACERS ARE TUNING U 


P" "THEIR ENGINES..." 


875 FOR N=1i TO 5S@ 


S87 LET YeINT (RND#5) +3 

S8S LET Z=INT (‘RND#20) +60 

S83 PRINT AT 18,0; "BONUS "5," 
TF YOUR WRGOON WINS", IN LESS TH 
AN °3;2;"° TINE UNITS" 

S390 GOSUB 5892 

2090 GOSUB 5S28ae 

305 tcLsa 

109008 FOR N=l To 21 STEP 5 

1010 PRINT AT N.90;B8§ 

10815 PRINT AT N-1,0;0$ 

1820 NEXT WN 

1030 FOR N=l Te el 


10948 PRINT AT NN, 


al 

1Q5@ NExT WN 
i968 GOSUB Jide 
1a? GOTO 1358 


1112 FoR OL TO 


hj ! 

ue NEXT 

H IF Bini sed 
1 NExT NN 

1 RETURN 

Hi LET T= 

a PRINT AT @ 
s ; ee chs 


GOSUB Sead 
GOSUB Saad 


SOSUB S882 


SOSUE (1102 
LET T=T¢+i 
SOTa ile 
LET x=N 
FOR WN=}] TS 
PRINT AT 2 
“DO; "A LIINNER * 
20 NEXT WN 


KAGE ROG IOAN CNP Peele No 
IGOGEGSEGES GOO PWM (ECOG 


=Q TO 
@ NEXT N 


IMIR ERT R TA LATA TOD MT FE BT od med od ood od ed od od od ed 


JON & caftu~ 
a) 
vn 
I 
WD: 


330 FOR N=l To 


Peau -OuuntE Pe pe rae pe eae poe be he ee fee pe oe he pee pe Be Re pe pe pe 
af Ed 

Ta 

Ky 

Pd 

rm 

= 

“4 

<. Ul 


rom 
“EY 
ae 
r 
- 
x st 


a oe Se oe 
PRINT AT 4. 
PRINT AT 4, 
PRINT AT 4, 


Wagoner’s Walk 


‘S' AT N, 38; "2 


~.J 


Le 
dj 
Nj¢fGe-]! ,Bt(NI> as 


THEN GOTO 1208 


ON 5 hd 
16; "GET READY" 
l4; "SET 

12; 0 


IS. °TIME «ct 
tRNO $41 +1 
(ft Pi +] 


ah 


3Q PORE 16432,0 


O i ica "iE" "SNS Ux: 


20 


1410 FOKE i6¢i5,¢2 


lde2Q IF xstl THEN 


GOTO 3008 


14230 PRINT “s4seeeee¢¢4% YOU LOST 


SESELE ESS ES" 
i44@ PRINT ..°*% 
DEBT" 


OU MUST PRY YOUR 


e 
t 


1430 PRINT AT 18,0; "YOU AAD: "."S 


id6Q0 PRINT "YOu 


1465 LET CRSCR-M 
; a “OL Poi Hai! ni ; th $" 


1472 PRINT 


LUST: ".°S"° 5M 


148@ IF CR<=@ THEN GOTO 7000 


14930 IF CR:=192 
1500 PRINT ., an 


RGAIN' ."...UF 


THEN GOTO 6900 
os "Hoes TO PLAY 


"TO gUrlT” 
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_ Moving Graphic Games 


i52@ IF INKEY$="S" THEN GOTO 50e 
1530 IF INKEY$<:"C" THEN GOTO 15 


28 

18408 CLs 

1850 LET Paint ‘RND#5) +2 

15860 GoOoTaG iSe00+:16sP) 

1572 PRINT "“SULLIBLE AREN'T YOU 


iS75 GoTO 1s8sa 
1580 PRINT “FORTUNE FAVORS THE & 


RAVE" 

1585 GoTo Leese 

1590 PRINT “o.k. -BUT YOU MUST FR 
ING HOME’, © TO TELL YOUR HUSBAND 
“WIPE sMOTHER ” 


1595 ears L652 

16@0 FRINT “TUT TUT - GAMBLING # 
CDOICT , RRE YOU, 

1605 Soro 1s2e2 

1610 PRINT "GH iIELL, I'''M GAME I 
F YOU RRE" 

1650 FOR Nel Ta 4 

16S1 LET Bin: s@ 

1652 NEXT WN 

1653 PRINT AT 15,0,"...BUT you 
ON’ 'T GET To SEE", "THEM IN THE F 
ACDOCK THIS TIME 

16S39 GOSUB Se@ae 


~—6©16680 SOSUB Seae 


1665 GUSUB Seee 
1670 GoTo S72 
SQCBO PRINT “seseeeeeeHee YOU WON 


SQ10 PRINT ..,°NOW YOU COLLECT ya 
UR LIINNINGS® 

3020 PRINT AT 18,0; "y¥OU HAD: ","$ 
3030 PRINT “IN AT 2 TO 1:°,"g": 
Ms; 

3040 PRINT “+ STAKE: °.°$°°>M 


SOSQ LET CRsth+ i443) 
3QS5S IF Tic THEN GoTo 3188 


SQ6Q PRINT “NO TIME BONUS: ". "$8" 
SO@70 GOTO 1478 
2100 PRINT “TIME BONUS: “Ss ¥ 


S1l@S LET tCR=CR+Y 
3110 GOTO 147¢a 
SQQ@0 FOR N=l Ta 25 
SQQOS NExT WN 

SQ10 RETURN 


6UGA PRINT ,.° YOU HAVE EXCEEDED 
THE HOUSE", "LIMITS OF $1980 AND H 
HUE BEEN” 


6O@10 PRINT “FORCED TO RETIRE FRO 
M WEBI oe YOUR WEALTH", "2 


6020 STOR 

“OOO PRINT “yYOU ARE SHORT. REMEM 
BER YOU QUE THE COMPUTER $20. YO 
U MAY LEAVE AN I,.0,.U." 


Wagoner’s Walk 


STOP 

CLS | 

FOR N=i To 20 

PRINT “OHICKEN....',; 
NEXT N 

PRINT AT 15,.0;568: , 


IF CR>2a@ THEN GOTO 8190 
IF CR=28 THEN GOTO S209 
PRINT "- BUT YOU STILL OWE. 


THE COMPUTERE"; 20-CR 


SOse 


STOP 


S100 PRINT “- BUT YOU CAN FORFET 

T YOUR $§"°;CR-28; "PROFIT AS A TIF 
TO THE COMPUTER" 

S110 STOP 

S200 PRINT ‘“- BUT YOU ONLY BROKE 
EVEN" 


WAGGONER’ S PALE - RULES: 


“HL 


HVE $20, YOU HAVE BEEN 


INVITED TO A DeaY AT THE RACES 


==! 


WATCH YOUR MONEY.THERE ARE 


4 WAGONS IN THE RACE, ALL FROM A 
NEAHREY SCRARPYHRD - 30 THEY BO 


TEND 


TOU BE RATHER SLOW, 


YOu ARE INVITES TO BET ON 


INE 


OF THEM TO iIN. FIRST, 


AOLIEUER, YOU Mey SEE THEM IN 
THE FADDOCE., 


PRESS 


we PT FONT INUE 


WAGON - DRIVER: 
i JIM 

5 JOE 

= JACK 

4 JOHN 


JRE 


YOU HAVE SEEN ENOUGH OF 
THEM. PRESS °C 
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Moving Graphic Games 


MAGONER'S BAL 
= A ORMROD F-isse 


Ls 


Ch ae www) DME  & serena arpa mine 


™ se mie 


: ; * OOO an, SVEVECLPSOEOET LEGALS E 
DAA ry 1 EAS leo VS ANAAAAARAADARY ARS Oe UL Sh ES STL SS SER Rta A 
tea ome fA BENASSI ANA EA . ane en ea ag we ie ee ee ea ete Sareea 


ae Ai 
Reta ot Legit See ofetetetetattet ta tatat ett BGs git! 


Se a el 
it 


et pte, 


See oe 


Z ae re ote, 
AAAS 


i ee i i ccc 


SSS SSES YO WON FFE SEHHEE 
NOW YOU COLLECT vOUR WINNINGS 


YOU HAC: $2 
IN AT 2 TO 1- 
+ STAKE: $4 
TIME BONUS: $7 


+t 
OO 


PRESS "CO" TO PLAY AGAIN 
oe OR "5S" TO QUIT 


Grand Prix 


This game of skill, written by Jim Archer, combines steering, braking, 
and accelerating around a rather complex race course. The car is steered 
into a starting speed of 40 mph, from which you can accelerate up to a 
maximum of 200 mph, but it 1s quite difficult to complete the course at this 
speed without crashing at least once. Every crash costs you a time penalty 
of 10 seconds. Within the main loop there is a PAUSE statement that 1s 
related to the current speed, so the program does actually get faster as 
your speed increases. At the final lap, the average time per lap is given in 
minutes and seconds, and you’re graded as a driver from “‘A”’ to “F.” 
Only the best drivers can get an “A.” 


S REM “GRAND PRIX" 

190 PRINT * + THE GRAND PRIX 
BSmSRAM ++° 

20 PRINT o.,. “USE THE KEYS @ 
FP’: TRE 123: "°R DO’: TAB 13; "2 xXx 
“TAB 8, °T2 sTEER YOURSELF," "KE 
‘2 N.M TO BRARE -ACCELERATE" 


e5 PRINT .. "WARNING: PRESSING 
ore KEY |} WILL STOP THE 

208 PRINT ..°ROL MANY LAPS? "; 

40 INPUT Li 

43 LET L=il 

SQ PRINT Li 

S424 CIM WHS (20,32) 

S&S OIM S$i2a,50) 

Se; FRST 

6Q GOSUB 1298 

BS CLs 

68S LET YiL=@ 

78 FOR x=1 Ta 28 

S@ LET Z=1 : 
: 90 IF B$ix.,Z2is" “ THEN GOTO 14 
ey 


100 LET Y=VaL no ate a £+1) 
210 PRINT AT xX.Y¥-1; 


i 


54 | Driving Games 


198 LET x=sjl4 

2eOQ@ LET Yy=2s 

2108 PRINT AT x. ¥-1; "KE" 

220 PRINT AT 82,06; "READY.."; 

e230 FOR il=] To 3 

2408 PRINT 4-H; "°.,..°5 

250 PAUSE 5&8 

60 NEXT ii 

2o5 PRINT AT ,0; "SPEED: @ TI 
ME: 8 Lae. 

2e7O LET Fsa'"x'' 

280 GOSUB 1382 

230 PRINT AT X.,Y-1L;RAS0X%,47) 

3Q@@ LET xX=x4I 

340 LET Yry¥e4d 

32@ PRINT AT X,.¥-1: “BH 

S22 IF AS(xX,Y!1<>" "“ THEN GOSUEB 
1508 

324 LET T=T+14+U/100 

325 PAUSE U | 

327 LET S222'(100-U) 

Ss PRINT HY 8,6;5,;" "SAT @,16 
330 IF INKEYS$="" THEN GOTO 2939 
335 IF INKEY$="M" OR INKEYS$=s"N" 


S 
THEN GOTO 1408 


340 LET Feg=sINKEY$ 

S50 GOTO 252 

S990 STOP 

9839 REM CORRSE DATA 

1000 LET B$ii: ="121351415" 

1010 LET Bite! ="°10111625262"" 
1820 LET FS is: ="O7O0SO09131l41 rede8 
aa LET B$i4) ="96111215 15222526 
1040 LET BSS! ="Od40S06091015132e0 
el252730" 

1852 LET BSG: "920307" 1 %e2sed28ai 
Choy teal Bir: ="O10506181ise0clee 
+ fh LET B$:&: ="81041215141516e4 
1060 LET B$is: ="92041117%2952" 
1090 LET Beil: ="@20508091011151 
415183032" 

1100 LET B$ ii} ="030507131618303 
1110 LET B$ile ="830S50703101lllel 
Sl16152e0eleccsed¢ 252627 2835032" 

1120 LET Bilis: ="030507101415i9e 
83032" 

113Q@ LET GS$itid: s"G20S50s101dlelel 
S2ieeasedebaete (2950S2" 

1140 LET &$:15: ="01040708101420e 
42393032" 

1150 LET BS1is: s"Ol1lOsG6101S 16171 
SlGeeesesasebe /293032" 

1160 LET BsSii?i ="8104¢060803cel1l239= 


832" 


Grand Prix 
1170 LET BS:18: ="82050808ele3e4¢2 
Sebe Pees sese * 
1160 LET B$iis: = icaneeeaee 
1190 LET &8$ te: ="O405060 Feeesed¢e 
S26e 7282933031" 
1i3sS RETURN 
1200 LET Ds: F ga Sf") 4+ :F Sal eT + (PS 
ar Me a hall i Meh ot ag 
Lala LET JSiPgso EV +t Sa "OCI + ies 
2'o'y oi P goa -:(Fgs' -' Pm (FP gete" 
1220 IF F$<>"" AND U=l@0 THEN LE 
T Us8e 
— IF 2[=@ AND J=s0 THEN LET Uel 


1348 PETURN 

1400 IF INKEYS$="M" AND U:+se8 THE 
MLET Usll~-cg 

1410 IF INKEYS="N" AND Us s80 THE 
Mm LET tUeti4e22 

1430 GOTS e382 

ta IF AsSix. yi s'-' THEN GOoTo 16 


1515 IF S=@ THEN RETURN 
1520 PRINT AT 21.5; “EEEEGEEREES 


1540 PRINT aT £3,.5;' ss 
188S@Q LET Fes" 

156@ LET s=2 

1870 LET I= 

158@ LET Js 

1590 RETURN 

1600 IF S=s@ THEN RETURN 
1805S LET LaL4+i 

1680? IF L+Li THEN GoTo 1638 
1610 FRINT AT @.27:iL 

1620 RETURN 


16230 LET Te=eT-Li 

1635S LET M=sINT iT -6@) 

1640 LET S=INT (T-6OemM+, Si 

16Se PRINT AT £73,080; "AU-LAP: USM 
1680 IF 2:18 TREN PRINT ‘'‘a@"; 
167a st dead aN MIN: GRHDE : 

1680 IF £2185 THEN PRINT “A-CON 
CELT’ 

1Es0 IF T:182 AND Tse2le5 THEN FR 
INT "“B-FRST" 

1780 IF TT? 


2225 GND Tssl7S THEN PR 
INT “C-AVERAGE 
17430 IF T:178 AND T:s2@0 THEN PR 
INT “O-MEDIOCRE™ 
1720 IF T20@ AND Tss225 THEN PR 
INT “E-SiOW” 
173Q@ IF T:228 THEN PRINT “F-SNAI 


ae) 
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_ The effect, 1 feel, 1s sightly smoother and faster than using ‘scroll’. 


Alley Driver 


In Alley Driver, written by Said Hassan, you have to drive a car down a 
constantly twisting track. Said explains: “The idea for the program is not 
really original, I know, but I think the way I’ve done it in this game is. 
Instead of scrolling the screen to give a racing car effect, as is often used in 
these sorts of programs, the car (an inverse ‘H’) races down the screen. 

‘After each section is completed, the screen clears and a new track 
appears. The program supports a high score feature and after each game 
will ask the player if he or she wishes to have another game. Press ““Y”’ to 
produce a new game.”’ 


10 LET Wetape '"’ 
2eQ@ LET S=C0ODE 
38 CLS 
40 LET x=: 
SQ@ LET wH=cC 
60 FOR N=ct 
7Q@ PRINT T 
80 LET A=A 
— fRAND- , &i 
30 NEXT WN 


100 LET H=x 
118 FOR N=PiIvel TO CODE “s" 


130 IF PEEK [PEEK 16398+256+PEE 
K 16399) =CODE “M' THEN GOTO 212 
14Q PRINT AT N-PIVPEL.A; "Hs aT ON 
s&h; ae 4 al 

15@ LET A=x 

16@ LET x=X+(INKEY$="Q") -(INKEY 


LET Ss 
230 PRINT ..., ERS... °SC0RE 


240 IF H<= THEN LET He=S 

2e5@ PRINT HIGH SCOREs"’; A... "RL 
AY AGAIN" | 

260 IF INKEYS$="" THEN GoTo 26 
ah ct IF INKEY $=" THEN GOTO COD 
F 


Alley Driver 


Tt 
Pee, 
re 


Se 
Sc 


Frnt, 
tet Bey aA 
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Squeezer [IV 


Vroom, vroom . . . and you're away, driving your car along a constantly 
twisting and turning road. The road changes width as well as direction, 
demanding even more of your skill. The road will start off very wide (to 
get you used to the wheel) but will close in progressively. If you hit the 
side of the road, your score will appear, and you'll be offered another 
game. To move your car, use the “1” key (left) or the ‘‘0” key (right). 
Lines 21 to 70 set up, then decrease the road width, and move the car. 
The .731 in line 22 controls the rate at which the road narrows. Change 
the second or third decimal place to alter this. The routine from lines 80 to 
150 asks if you want a new game, and line 202 controls the road. 
Squeezer IV was written by Nick Wilson. 


SGUEEZER Iu 

11 REM Nick WILSON 

je LET Bee 

13 LET x2=16 

14 CLs 

13 LET Mee 

2Q@ LET L=a 
. cm PRINT AT 21.M; "HR"; TRB (32-L 
| es it 

ee IF RNGD:.73i THEN LET L=Le4l 

es LET Msi 

eS IF i: THEN GoTo 2a0 

232 IF INKREY$="O" THEN LET X=x+¢ 

409 IF INKEY $= TREN LET x=x- 


ESQ PRINT at Tee ey 
85 IF PEEF (PEEK 168395+2564PEE 
me L629) 238. HEN SOT 8 

£5 PRINT “B" 

6B LET BsBe+i 

BS SCROLL 


90 GOTO 112 

198 ¢Ls 

110 PRINT AT 18,120; "TRY AGRIN * 
d2A@ IF INKEY $= °°" THEN GoTo 128 
L420 IF INREY $= YY" THEN RUN 

1590 S708 


2@2 LET L=i+ii AND BND:.5:-t1 A 
NO RAND: . BS 


a3 IF 1:26 OF $L<:@ THEN GOTO Za 

2OQS SCROLL | 

Zil@ PRINT TRE LL: 'y . 

ewe IF INKEY $=2='a" THEN LET Rok + 
S40 IF INKEYS=°1°" THEN LET *=*- 

25Q PRINT AT ifm: 

26Q IF PEEK ‘(FEEK 16398+256+PEE 
168399: <:8 THEN GoTS se 

2?O@ LET &=6+i 

23a PRINT “ge 


230 


GOT 2a 


Squeezer [V 
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Slot Machine 


Slot Machine, written by Adam Waring and Mike Cleverley, uses a flashy 
machine code routine to reverse the display. It 1s called during the 
introduction, winning, and losing routines. The program has RESPIN 
and NUDGE routines. 

The object otf the game is to win a grand total of $50. This is achieved 
by gambling on the one-armed bandit (see lines 40 to 80). It costs $1.00 
per go, and you win $5 for getting two numbers the same, $15 for getting 
three the same. 

To save, type GOTO 6550, start your recorder and then press 
ENTER. Upon loading, this program will start running on its own. 

Start by entering the following routine, which 1s used to put the 
machine code into the REM statement: | 


1 REM 12345678990123456 7592 
1Q@ INPUT x 
2@ LET Agss"" 
SQ IF Ags="" THEN INPUT AS 
~=40 IF Ag="5S" THEN STOP 
| re PORE x,i152#COCE at AS le 
ped? 


SO GOTO 3a 


After you've entered that, run it and input the following. The first prompt 
requires 16514 as entry, then: 


er. QC 48. 86. 17, 2B. ed. FE. 
FE. YS. 240, 83. 10. FS, 3. 6. 
SO . *% ago: Fe 


Line 1 should now look like this: 
1 REM E&RnpgFsFP SAVE TAN LEN 
Gc. PRUSE | 
Once it does, enter as a direct command POKE 16510, 0 then, enter the 
rest of the program: 


OBREM ELC 
PAUSE 


REM — Se NRC INE | 
S4aymee SOP SSIGHT (ci B 
Be TQ TKS CLEVERLEY 


- 
od 


‘ ate _ 
REM © . 
went : fuente 

: Rey a Ne a ee 

. oF of = aa 

‘ae = ¢ * ae yas _f tee’ 

F E M ae as te Le wrt 
enn ~ see ee ag MAN ga asta 

na aa oy A pau enn e's 

; oy CaN Se CP ee 


OKO TVONGINY | 6 
T) 
m 
z 


63 


64 


13 


CONTINUE ® . 
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SOSUB 28a 
PsoPEER 


LET 16S396+PEER lesa? 


CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


Cr 
Ce | 


PEM ec 


, ‘a oon : 
A a ee ee ee ee ee ee 


SOSUB 2eave 

PRINT AT 18,9; "YOU HARVE $°, 
IF &::INT A THEN PRINT 
PRINT TAE eS, PRESS "UCC" To 
TRE S.°°°'G"' To GUuUIT" 
IF INREY $=" gr TREN sTOFP 

IF INK Erss: "COC" THEN GoTa id 


200 cp ceramrmnnwis 


BUSUB 

reEM sees tee 
REM : ee: 
REM S366 See ae Re ees are Rea 
FOR L=e=i Ta 3s 
1¥-L#e2 


Fur 

- rif - ‘= 
LNT LRND#1O! 
tN eee-L,AH IN +28 


NEXT N 


LET S=RNE 
IF Bis Ss) 


GOTO 4200 
NGOTO 422 


$ee+1 


“OH LENT 


Slot Machine 


S@7 PRINT AT &.x: "BR 

S11 PRINT AT &. x: je 

nee IF INKEYS="N' THEN GOTd 40a¢ 
Ms 
35 IF INKEY S$ ‘y' THEN GoaTa 3e@ 
“320 FOR Nei TS 2e 

Sed LET A K¢li/2; sINT (RANOel1: 

TEGB+x AltimeLi -21 428 


420 LET Grint 'RND #442) 
43Q PRINT AT 15,3, "YOU HAVE “36 


“450 FOR- Ne To G 
4690 IF INKEY §2°0" THEN GOTO 48a 
i 


470 IF INKEY $<" COR INKEYS$:"S 
THEN GOTO 462 

45@ LET B=CODE INKEY$-2é 

4930 LET Ais =A 1B) -1 

495 IF ARIE! <a THEN LET ACB 29 
S5SQ0 PRINT AT &,1;A(1);TRAB 3;AtS 
i; TAB Sets 

S10 NEXT WN 

529 GoTo 4008 


x 
a 
e. 
Go. 
m7 

on! 


140 PRINT 
apse PRINT " Be a Pn en ee i oe 
2150 PRINT " § 8 Bed 3 a 
9% 8 he’ ; 
ag all * § © FS an 
2ei&Q@ PRINT ° § § @ © Same” 2 8 eke 
hoOR Ree | 7 
2185 LET B$="MIKE CLEVERLEY AND 
ADAM WARING" 
2i9Q@ LET AS=H°SEMPLETED ON 19TH J 
UNE 12382 By" 
z2@5 FOR N=i1 TS 30 
2210 PRINT AT LL.N: ASIN) 


eeisS PRINT AT Je,31-N: BS tZlen: 
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ee’S NEXT N 

ec8OQ LET H$=" 
INSTRUCT IONS ¥" 
ecad PRINT AT 14, 
e380 LET ASSAS ic 
@svsS IF INKEY $=" 

BG a INKEY§c2"" 


O; RSE 

a )4¢AG (1) 

" THEN RETURN 
Y"' THEN GOTO 22 


Naha hs Na Ns uo fr 
Coc Lot & 
A dd eee 
Sewer GG 


a9 is ¥ if 
23680 PRINT “TRY YOUR HAND AT THE 
ONE ARMED BANDIT. WIN A TOTAL 


e370 PRINT “YOU ARE GIVEN $5 TO 


2380 PRINT “ITH. EACH SPIN COST 
5 $1. YOU SPIN BY PRESSING “"C 


e330 PRINT “GETTING 2 REELS THE 

SAME WINS YOU $5. GETTING 3 TH 

E SAME WINS" 

e400 PRINT “$15, DURING THE GHME 
YOU MAY GETR RESPIN. THESE ARE 

FREE. AND" 

e410 PRINT “THE FLASHING BUTTON 

INDICATES WATCH REEL MAY BE RE 

SPUN. YOU" 

e420 PRINT "“RESFIN BY PRESSING T 

HE OY" "' KEY, IF YOu BOG NOT WISH 
TO RESPIN" 

et PRINT “THEN PRESS THE ""N"" 

e431 PRINT 

edse PRINT 

e433 PRINT 

e455 PRINT “FPRESS ""C'' T CONTIN 


e436 IF INKEYS$.:"C" THEN GOTO e4 


ed4a7 CLS 
e440 PRINT “NUDSES ARE ALSO AVAL 
LABLE AT RANDOM STAGES THROUG 
HOUT THE” 


edSQ PRINT “GANE. YOU WILL HAVE 

FROM 2 TU = NUDGES AT A TIME. YO 

li PRESS THE™ 

e460 PRINT “COLUMN NUMBER ""'1"", 
Pet OR Es". TO NUDGE THE A 

PPROPRIATE COLUMN, © 

2478 | PRINT “Tro =TQP NUDGING, PRE 

= 5 3 St it tt 

e450 PRINT “THE GAME MAY BE TERM 

INATEO AT AMY TIME BY PRESSING 
PE QE ORS ey” 

e453 PRINT 

e454 PRINT 

e455 PRINT 


Slot Machine 


e490 PRINT “PRESS ""C'" TO CONTI 
e455 IF INKEY$<:"C" THEN GOTO e4 
2502 RETUBN ummm 


3020 FOR Nels To 21 
3Q30 PRINT AT N,Q; " 


2868 NEXT 
2872 Ber eases . 


REM nooner anenegecnen 
4019 SOSUE Song 
4950 LET As=H-i 
40690 LET Aid: sRili 
4100 FOR N=1 To 3 
4110 IF SG iNi SAINeL} THEN GOSUB 4 


4120 NEXT WN 
4400 IF 8:50 THEN GOTO Sa0g 
$41@ IF Asi THEN GOTO 6800 


4500 FOR M=12 To 21 
452@ PRINT AT NM. 1; "2@000" 


mallee 
5070, PRINT ’ ofl alll ell 
S952 PRINT + +r 
5090 PRINT | 
S4OZ RINT " oes UE 
S110 PRINT ' & 
weak PRINT i g _ _ ‘ 
—_— 
5125 PRINT 
S130 PRINT P= s*™ i =. 
S140 PRINT ' P™= Fi it 
S15@ PRINT ‘ Boe” § 9 See’ 2 
Somes 


Q PRINT  “™™ ) = 


ate fas 
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5180 PRINT '° — —_—== p= wn 
S'" TO START" 

S5S19@ PRINT " Jf i zh 
S200 PRINT 

S210 PRINT =" be FES 
S220 PRINT 9 P| 3] 1 5.1 FS" 
S23Q PRINT " Eee” § FF Di 
S300 RAND USF 16514 

S304 FOR N=il TG 10 

53065 NEXT N 

5310 IF INKEYS$='S" THEN RUN 21 
5328 IF INKEY$<:"O" THEN GOTO 53 
S330 PRINT TAB &; "GOODBYE SUCKER 


I 


Ey 


cin = 


ee ys oe ee 
fg 0 CTT E> ng tg ND 
Ky (9 & 


mi alin mons ct ng Te 
1S gaan 1 pa TD es FL TL be al a 
PP Cia ti” OO 
Begg GW fF & 


— ‘ 
TT 

bf 9 bg ‘ 

ae. 

codnded eee: 


aa 
Ue 
MeéH He H 
a 5 ae. 
44 


uv 
a 
= <= 


E 


DUD 
WHT 
tt 4 i- 
ae, oe hen 
445 


UD 
Ra 
ar 
= de. 
4: 


2 
2. 
+ 


De 1D 


E 
HoH 
_ 


yuuvudUV 


o/s eet Fit 
2. UNL. to. 
dmtas cf 


- 

Pr] 
7 
=e 


£. 
= 


it sis it 


TO START". 


TO guIT® 
SOTG Ssea 
SAVE “BANDIT” 
RUN 


Reaction 


This program is based on an old reaction test for pilots and bombers. In its 
original form, when computers were steam-powered, the test consisted of 
flashing lights and switches that were controlled by tubes. The Timex/ 
Sinclair 1000/1500 has done away with all that. 

At the start of the program, you'll see an interesting display made up 
of the numbers 1 to 9 down the left-hand side of the screen. A black bar 
finds its way down the screen until it reaches the bottom, followed by a 
series of other bars. The aim of the test is to stop the bar as close to the top 
of the screen as possible, by pressing the number or letter that the bar is 
on. This may sound simple, but you'll soon discover that it 1s not. The 
score, shown at the top of the screen, fluctuates according to how fast you 
can get to the bar, so it’s quite possible for the score to fall below zero. 
You can speed the whole thing up by adjusting the value of 4 in line 110. 
When the score gets above 49, the test is terminated. 

Reaction comes from Nick Wilson. 


10 REM REACTION TEST 


2eQ FOR I=si Ta 2e@ 
3@ PRINT CHRS$ (3I428);"° "; 
32 FOR J2=il Ta 16 


so SLO 
LEFT S=18 
LET wJs=iN?T «‘RNO#26) +5 
PRINT AT 2.80, "SCORE = ";5;" 


Tl 
CO 
ae 

oD os on 

Te) 

tt > 


TO 28 
LET ¥ 
PRINT AT Y+1,4; “EBS AT vod; 


SS LET N= 
SG IF INKEY$<:"" THEN GOTO 158 


| 
aS Ban iar 
“Bong ream 

~ 

m 

| 


LET ASSINKEYS 

LET NeNel 

IF N=4 THEN GOTO 188 

IF AS="* THEN GOTO 38 

IF AS=HCHRS (I+23) THEN GOTS 
: 69 


70 


Checkers Seven 


This game is somewhat like checkers, except that it is played on a 
seven-by-seven board. The pieces move as checker pieces—diagonally 
one square, or Jumping over an opponent for a capture into an empty 
square beyond the opponent. The main differences from checkers, apart 
from the size of the board, are that the pieces are able to move forward 
and backward at will—every piece can move as if it were a king—and 
there are no multiple jumps. Timex/Sinclair 1000/1500 is the X’s moving 
down the screen, and you are the O’s. You move by entering the number 
of the square from which you are moving—entering the number along the 
left-hand edge first, then the number across the top, then pressing 
ENTER. The computer will keep track of the score, tell you before it 
moves the move it intends to make, and terminates the game as soon as 
one player manages to capture five of the opponent’s pieces. 


cee 

ty 
GInshs tn 
Minor 


419 PRINT AT 2,9; 
S000 PRINT AT 2,0; "FROM?" 
Sa7Q PRINT AT 2,0;M;" Tar” 


BQSS PRINT AT €.:0:" 

B@S? PRINT AT 8.9; 

BQSa LET Hii: <Se 

BESS IF ABS (MeN) see OR ABS (M-N 
§'218 THEN LET AttMeNn) se) <26 

BOSS IF ABS iM-N) s2e OR ABS (M-N 


12135 THEN LET NE=sME+1 

6100 LET AIM) =26 

6BS930 RETURN 

7O19 FOR A=78 TO 12 STEP -1 

7020 IF HiA: <:6812 THEN GOTO 7@6e@ 
FTOeS@ FOR B=1 TO 4 

7TOS2 IF A<28 AND B¢c3 THEN GOTO ? 


7033 IF €A:6@ AND B:2 THEN GOTO ? 
7O3S LET a=s2427i8) 


Checkers Seven 


7O4O IF MiRmeZ iB: j 
cS TREN GOTO 787@ 
"OSO NEXT £& 

7a62 NEXT # 

YOHSes COTUG Ysa 
P7O7O LET HikkReZiBi) = 

YOBO LET Hiei see 

7OSEG LET HfA4¢0) =<61 

°OS92 LET Y=sh40 

7O33 LET x= 

7Q95 LET IT=ITe¢l 

~l00 RETURN 

Yol®@ LET Y= 

Ys3e8 LET ya=yYel 

vou LET KeINT (RND+#66)} +12 

734 cae see AND *<160 THEN 


?7OSOQ IF Hiki<>61 THEN GOTO 7462 
7360 FOR T=1 Tao 4 
7370 IF Htk+Z:T:) 226 THEN GOTO * 


7380 NEXT T 

7390 IF vy¥<?70 THEN GOTO Y318 
7395 GOTO Y4é6ea 

7400 LET HikeZitT) 1 <61 

7410 LET HikK: 226 

7415 LET x=kK 

Y4i? LET YorezigT) 

Frd42e20 RETURN 

7460 PRINT "I CONCEGE" 

7470 STOP 

SO@0 PRINT 

6010 PRINT "I MOVED FROM ‘7a; "°° T 


SOLS PRINT | 
SQ2O PRINT PSPEMRES: YOU: '; ME; " 


phd 
SQ40 PRINT 
GQ5Q PRINT FRE 3," 1Le5455 
SQ5S5 PRINT Tas &; 
S860 FOR J=7e TO 1@ STEP -10 


=52 AND HiA+0) = 


| H 
Rs (£3; CHR S$. IF: ; CARS (G6; 


"a 

SQg@ NEXT a | 
S100 PRINT THE &: Si 
8110 PRINT THE &; 34567" 

Slz2@ IF IT=sS OF ME=s=S THEN GOTO = 


Sis RETURN 
Si4@O IF If=S THEN PRINT “I WIN" 
S150 IF ME=5 THEN PRINT “YOU WIN 
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90925 CIM 4: 

9030 FOR i Ta gg 
S950 IF A+7?7 De A=78 
A=6853 OR A=E639 UR A=SO 
H=58 OR A=40 DF A=d3 
NM GOTO 38a 

@@55 IF Rasa wR A=Ssd 
A=20 OR Aas28 DR Ase 
NM GOTO 98 


PTW NT non ne Do 


wee eee eee eee Np Pp Te. Oe ef Td oH. 


CNR Teens Ts 
ne = 


La 


a) 

a 

a 

Sg 

if 

aI 
4{DOoODDOD 


3890 NExX 


ib 

bs 

ho 

fy 

[~ 

rm 

—4 
Ue a in 
ieee 8 


9i3SQ@ LET 
9149 RETURN 


I MOVED FROM 54 To 36 


FROM | 
SCORES: Yu 


Dr ToT 
nou ow 
> CF Te 

Pun (wet 


“~ Hf 


tH Cu 


“JO 


Bp DT 
ut 
efhs mJ 


mon 


CR 
CIR 
THE 
OR 
THE 
OR 
THE 


Ch 
THE 


Between the Stars 


When the delights of Earth begin to pall, you may hunger to soar into 
darkest space. You have been given responsibility for the security of a 
cube of space, measuring 10 x 10 x 10. The Terran Federation, sparing no 
expense in the defense of Earth, has provided you with a space ship 
equipped with a Timex/Sinclair 1000/1500 as its on-board computer. Now 
it is your turn to guard the space lanes. 

The printout shows you what the screen looks like when you play this 
game. There are a lot of things demanding your attention. Your position 
within the cube is given by the three coordinates under the line SHIP IS 
CRUISING AT COORDINATES: The first coordinate is your up and 
down position (north/south, with lower numbers to the south), the 
second is your position across the cube (east/west), and the third is your 
position within the cube (forward/back). You can see that the ability to 
visualize in three dimensions is useful. 

The alien craft is moving very slowly within the cube, but although 
you know its direction from you at all times, you do not know how far 
away it is. You have to hit it as many times as you can before the time 
counter decrements to zero, while avoiding colliding with the alien craft. 
Running out of energy will also terminate the game. You will know when 
you are close enough to fire when the computer reports that the alien ship 
is firing at you. Every hit decrements your energy supply rather 
drastically. 

The game is simple to play, despite the bewildering amount of input 
the program is giving you. You just touch the key that refers to the 
direction you want to move: “N,” “‘S,” “E,” or ““W” to move north, 
south, east or west, ““A”’ to Advance, ““R”’ to retreat, and ‘‘L” to fire your 
laser at the alien ship. If, for example, you knew the ship was to the north, 
you could just hold down the “N”’ key until you moved onto the same 
north/south plane as the ship, then test for proximity by firing. 

You'll find that the program will teach you how to play the game. Just 
keep in mind that you have to get as close as possible to the alien ship to 
fire, and that your task is to get as many on your ‘“‘tally”’ as possible before 
the game ends. 

Between the Stars was written by Roger MacIntyre. 
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10 REN BETWEEN THE STARS 


eQ REM By ROGER MACINTYRE 


20 GOSUB Le?e 
46 GOSUB S28 


S@ IF L<@ THEN GOTO sae 

S@ PRINT ST 17,8; "ENTER yYoUR ¢ 
CMMAND " 

SQ PRINT AT Le.2:"°N. ES 6, tba 
SER. UTR DUANCE, (PR) ETREAT™ 
100 LET L=iL-a.25 

t2@ IF INKEYs="" THEN J GOTS 1228 
,t3@ IF INKEVg="L" GOSUB 32 
Ve 

14@ IF INKEYS="N" THEN LET x=x- 
“i5@ IF INKEY$=°S" THEN LET X=x+ 
162 IF INKEY$=°E" THEN LET v=¥+ 
“i7@ IF INKEY$=°W" THEN LET ¥=¥- 
4 
“180 IF INKEY $= A" THEN LET Z=Z- 
“29@ IF INKEYs$="R" THEN LET Z=Z+ 
195 PRINT aT 5.8:88 

29@ SOSUB S22 

zl@ IF FND:+S.,.5 THEN coTs 42 

266 LET ASA+INT (i RNDesi - (RNDeS 
1 : 

SQ IF @<i THEN LET A= 

SS IF A:1a THEN LET Asie 

BA LET &= BsINT (fRNDe!es: - (ANOses 


0] es OOO 


@ THEN LET &=10 
i THEN LET Bel 


MEN LET Cal 
ee THEN LET t=18 


= 

Ma 

My 

Me 

Ma 

=I 

ra 

= >i 

= i 

ty c:2.5 THEN GOT2 428 
O® LET SsINT ((RNGsS) -tRNDes: | 
A ee Oe 
e H 
4 4 
3 

i 

Ya) 

Ye 

Ps 

. 

Ss 


S1Q PRINT TSE 3: °M) TERMINATION 


St TE TIs@ THEN PRINT “WE 
BEEN IN SPACE 700 LONG" 


Hee 


S40 IF -@ THEN PRINT “BB OWE HAW 


EF BEEN DEFEGTER | id 

SSO PRINT 

SSS PRINT AT 10.80, ‘ENERGY 
it ie it ERGs rd 


Lert 


Between the Stars 


SEQ TF _ss@ THEN pe es 
ENERGY BANRE EMET Mt 

Bre 27D 

SEQ FRINT 

SSQ PRINT “GE HAVE SCOLLICED itIt 
M THE": THE =: ALIEN SHIP" 

BelQ@ =Tueb 

BeQ@ REM ++ RBLIENS SHOOT ++ 

Es@ IF ABS A-xI oS CR ABS (‘Bey 
PI UR ABS (tl-2::3 TREN RETURN 
Bese IF RAND @. 75 OE RETURN 

Fe. & = 1 pone Lt TENS 
FIR 

67 

BE 

Bs PRINT HT 1.0:;T§ 

YOO IF RND:8,. 7 THEN GoTo 77s . 
Fi@ PRINT AT 71.0; ALIEN FIRE 
HAS AIT Us 

TeQ LET L=L-? 

Toe IF L<28 THEN GOTO 588 


740 FOR wisi TS 50 


TEOQ RETURN ; 
SINT AT i. O: OGLE ALIEN 

FIRE MISSED SSURERE 

"SQ FOR J=1 Ta 5a 

TSQ NEXT 7 

a PRINT eH? 6£-.8,TS 


SAQ REM «+ ERINT GUT #¢ 
E5Q@ PRINT AT 18.0; "ENERGY LEFT 
BL: UEeSS 


SOQ LET TrletTITei 

SEO IF Ties THEN GOTO SO 

BsQ PRINT AT Ls.28.°TIME: °"; TT 

SQ@@ IF _:s THEN PRINT AT 1le.4;" 
em ENERGY Loi 3" 

S20 PRINT AT 28,439: "TALLY: “iT 

S30 PRINT AT is, o:'E SHIP IS tr 
WiISING AT THE” 

235 PRINT asda mila 609 

236 PRINT TRE m ee 4 ae 
S4Q FF Asx AND Bsr AND G22 THEN 
BOTS S52 

S6Q PRINT aT §.0:; 0; AT £,0; ''% 
aay See | 

SET PRINT AY &.8; "ALIEN CRAFT Tf 
= MO TNs” 

S°@ IF As: Ge Be: THEN PRINT 
Tie ae | 

SQ IF #8isx THEN PRINT "NORTH"; 
S908 IF Aa:x THEN PRINT ‘°“SOUTH": 
L1Q00Q@ IF B&:+ THEN PRINT “EAST: 
1QAL1a FF &:+ THEN PRINT "WEST": 
LBe2OQ IF Ss THEN PRINT " OF US" 
1930 IF Oo: THEN PRINT " BEHIND 
2060 IF &:2 THEN PRINT ° IN FRON 
T OF GS? 
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1960 RETURN 
1070 REM ++ INITIALIZE $+ 
LO3e LET L=INT (RND¥10) +4 


2100 LET T= 

1110 LET Tiesesks 

1i40 LET AeRItRND 416) +1 
1150 LET B=R (RAND s#10) +1 
Li6@ LET CsR (RND4190) +1 
1170 LET X=sR (ANDs10) +1 
1180 LET YsRtRNGe10) +1 
1138 LET 2=R I RND#10) +1 
1135 LET sss" 


1260 NEXT J 
1270 RETURN 


Dragon’s Gold 


The aim of Dragon's Gold is simple—to accumulate as much gold as 
possible while wandering through a complex maze of tunnels, caves, and 
doors, and to avoid the dragon and mineshafts. You enter “‘A”’ to move 
ahead, ‘‘L™ to move left, or ““R”’ to move right. Entering a space before 
pressing ENTER will cause the game to stop. 

Dragons Gold was written by D. C. Owen. 


REM OCRAGONS GOLD 
REM BY OC © OQWEN 1982 


UNI & CHINE 
Gs 
: 
cy 


CHO Caan 


a 
SS PRINT TRE 3; "DRAGON?’S GOLD" 
> ee 


6o a. HAVE: -" 
YO PRINT G:"° BLOCKS OF GOLD" 


120 GOSUB 120 
13@ PRINT “GN THE LEFT IS A"; 
140 GOSUB 1202 


150 LET L$=Rs 
155 PRINT “AND ON THE RIGHT IS 


168 GOSUB idee 
lYe PRINT “RRAICH WAY BO YOU WAN 


? L 
175 PRINT "A - AHEAD” 
i177 PRINT “L - LEFT" 


re 
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1866 SCROLL 

190 IF Ks$="R" AND B$=2="0"' THEN & 
CSUB 2008 

2830 IF Ks$="FR” AND RE="OD" THEN G&G 
OSUB 209C 

2iQ@ IF Ks$="R" AND BS2"T" THEN G&G 
CDSUB 3802 

e200 IF K$="L° AND LS$=2"T" THEN & 
OSUB 3¢eOe 

230 IF K$="R" AND RS="T" THEN G 
QSUB 3eQae 

240 IF K$="R" ANDO BSE="C' THEN & 
QSsUB 40a 

250 IF Kg$2="L" AND LG="C" THEN & 
CSUB 4dOUe 3 
260 IF K$=s"FR" ANDO RG="C”’ THEN G&G 
OSUB 4808 


27O@ IF NOT ‘ikg="L" OR KS$="R" OR 
K$a'A'': THEN GOTO 176 

2890 GaTO Sea 

990 REM +4545 55+ 

1000 GOTO 1808@0¢+INT (PND #3411 #100 
1100 PRINT " Boor" 

111@ LET Ag="D" 


1200 PRINT © TUNNEL" 


LET H$= 
13280 RETURN 
13839 REM +4442 424% 
2000 REM «+ DPUGR s+ 
2e0i0 GOTO 28@a¢+INT (RNO$441) £109 
eave PRINT “IT IS LOCKED. MOVE O 


21190 RETURN 
2200 LET OsINT (tRNDe941:; #100 
2210 PRINT “IT WILL GPEN. THERE" 


2220 PRINT “ARE ":0;" GOLD BLOCK 
2340 RETURN 
2300 PRINT “THERE IS A LAKE HERE 


» YOU 
e305 SCROLL 
e510 PRINT “CHNNOT SEE THE FRR > 


2315 SCROLL 
2320 PRINT “ARE YOU GOING TO TRY 


2@338 SCROL 
2340 PRINT “AND CROSS IT?" 


2370 IF CODE (2$) <¢3CODE “y" THEN 
PETURN 
2380 LET KaINT (RNDs¥31 +1 


Dragon's Gold 


23S1 SCROLL 
esS2a IF Kee THEN PRINT ‘YOU HAVE 
ESCAPED — ITH" 


2384 a Kee se THEN PRINT G:" BLOCK 
esse IF you" _ PRINT “UNPFORT Ui 


DROWNED..." 
STOP 
2400 LET iene (-RNOso4]) +50 


24190 PRINT “TRIS ROOM CONTAINS aA 
DRAGON" 

e415 SCROLL 

e420 PRINT "IT DCEMANDS “Vk 5 GOL 


246@ PRINT TAB J; "STAND BY" 

2472 NEXT uJ 

2475 SCROLL 

2@46Q IF GK THEN PRINT “YOU HAVE 
ENOUGH” 

2485 SCROLL 

2490 IF G<K THEN PRINT "...BUT ¥ 
OU HAVEN/T GOT 

2495 SCROLL 

2500 IF G<K THEN PRINT "“ENOUGH.. 
,90 BYE BYE"; END 


2939 REM #2423444 4% 

328000 REM *#+ TUNNEL #2 

39@190 IF RND>@.8S THEN RETURN 
3018S SCROLL 

2820 PRINT "YOU HARVE ESCAPED" 
32025 SCROLL 

7 PRINT "WTH ";G;" GOLD BLOCK 


3040 STOP 

39999 REM +4544 524444% 

40900 REM *#+ CAVE #+ 

4005 SCROLL 

4610 GOTG 40@0@¢+INT (RNO#3415 41098 
4100 PRINT "THE CAVE IS EMPTY." 


SCROLL 
4110 PRINT TAB &, "MOVE ON" 
RETURN 


4200 LET Q=INT (‘RND4104+1) 4100 
4210 PRINT "THERE ARE ";9;" GOLD 


BLO 

4215 SCROLL 

4220 PRINT "HERE TO ADD TO YOUR 
STORE” 


423@ LET G=G+0 
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50 


A 
4407 


44290 
me 
ETUR 

—6h4dd dl 


4410 PRINT “OO 
TIGATE*" 
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RETURN 
IF Pa @, 3 


THEN GOTO 4400 
sil To ead | 


"OH NO" 


J2i To 15 | 
PRINT TAB 2s; RE 
SCROLL 

NEXT 
SCROLL 

PRINT “IT IS A 


SCROLL 
PRINT 


MINESHAFT.., 


RARE OCEAD" 


Oe iG 
“THERE ARE NOISES AHE 


YOU WANT TO INVES 


INPUT KS 
IF CODE K$:; 


‘s0To 4002 


:COUDE “Y" THEN R 


Hit It 


Seven boxes appear at the top of the screen, numbered (rather logically, 
one would think) from one to seven. The message GET READY flashes 
for a couple of seconds, and then vanishes. Following a random delay, a 
black square appears in one of the boxes. You have just over a second to 
hit the corresponding number’s key. (To make it easier, change the 20 in 
line 130 to a bigger number.) 

If you get the number right, the missage HIT [7 will appear. If you 
fail, you'll either get TOO LATE if you take too long, or WRONG if you 
are wrong. Keep watching, because another number will soon appear. 
We suggest you plan to take the best of, say, five games, and keep a tally 
of which players get the most points. The graphics used in the program 
are: 


Line 17: 37R 
Line 26: 5B 
Line 40: W6Q 
Line 100: space 


Lines 12 to 45 print and number the seven boxes, and lines 46 to 70 flash 
the GET READY message. The box is chosen and printed by the routine 
from 90, and lines 140 to 165 choose the correct message to display. 

Hit It was written by Nick Wilson. 


at PR Te Te FD TR pe pe pepe pe pm 
Cho J 0 CH Es Cos ~~) 0 0 ne Ts ED 


Pi 
Cae 


45 rh | 
SQ PRINT AT 10,10; “Eau READY” 
SS LET L=SIN & 


8] 
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CNP CON 6 ul 1 CO =) > 
~SGagggourggaiGiwhs 
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PRINT AT 12, 10; “GET Seem 
LET Lessin §& 
NExT 7 
LET cs 
PRINT AT 190,10: " 
We INT <«‘RNDeTl 4+] 
Y Tai TO (CRND390) 
NEXT I 
Cts) +e 5 
5 


PR INT AT = “a 


20 THEN GOTO 210 
'* THEN GOTO 1190 
= OR CODE 
38 


SHIT 


12.18, "TOO LATE.©” 


O.@, 


19; 
a: 


“WRONG... 


4 oy 
ade 
So , 


Tic Tac Toe 


There is probably no need to tell you how to play this game. You and the 
computer take turns, trying to get three O’s or three X’s ina row. Unlike 
many computer versions of the game, this program allows you to win now 
and then. Most of the computer tic tac toe games are unbeatable, with a 
draw being the best you can do. | 

You move by entering the number of the square into which you want 
to move. You enter your move first, and the computer will ignore you if 
you do not enter 5 as your first move, the center square. 

This version of the game is capable of handling over 40,000 develop- 
ments of tic tac toe, about an eighth of the possible games. 

Tic Tac Toe was written by Stuart Roberts and adapted by Tim 
Hartnell. 


L REM Tit THLE TOE 

e REM ADAPTED T HARRTNELL 
3 REM PRuM <*~80Q PROGRAM 
STURT ROBERTS 


fo 
Bt 
re 
= 


Ti b= aC 00 
ur 


oe, 


Tit 


ie | | | Oe | 


4 


b> Te f> 8 Ey Es 


N SOSUB 7a 
THEN GOTO 4280 
THEN GOTO 4352 


1-4 


re 


ee ae 
Ke 


ro 
Tit 


is co Men 


Te Aa I ~~ 


THEN GOTO 460 
THEN PRINT "SRR" 
S THEN GOTG a7e 

| THEN PRINT ‘Sig acions 
“225 IF G28 THEN GOTO 97e 


240 IF aa THEN SOTO 230 


aT ft 

= 

Ey 

4 

Th 
En TNT =z 
Te ee 
MRS CER CE 

4 

Tt 

ri 

a 
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30@ LET Bi 


[s 
THEN LET Bia: =18 


D-Oguer 
HT 
f= 
a 


‘+ it 
NLT- 


but Und 
> tJ 
Cyt 
eH 
mT 
mt” of 
mm oe rl 
Ti. 
re Te eg Te ay le. 


< 


S70 IF 68:5: 25 THEN GoTo 300 
~80 LET 8 (2: <12 

330 SOoTa 3y 

40890 PRINT "SS °°: 


420 GOTa 1° 
430 PRINT "x °°. 
440 LET Pie: <4 
458 GOTO 172 
460 LET m=S128 
4°70 LET o= 
450 LET tel 
4908 LET D=3 
=OQ LET Fes 
SiQ@ GOsuB # 
S20 LET uss 
S3Q@ LET P=" 
=40 LET Fel 
S502 GoOsubB Fr 
S6Q LET Oso 

S,Y@ LET Fee 
Sé6éU GOSUB 4H 
S930 LET C=e2 
600 LET b=s8 
610 GCOSUB HF 
620 LET teal] 
630 LET ber 
6409 S0SUB HA 
65@ LET Des 
660 LET F=8 
670 SCSuB HA 
68O LET Exd4 
6SQ LET $5 
FOO GUSub 
7i@ LEY €=7 
FeO LET &s9 
TSO SOSu& # 
740 LET GeGe4l 
750 IF G=5 THEN GOTO 3@ 
760 GOTO 438 
77O LET x=x4+3 
780 PRINT 

730 PRINT 

SOoa@ RETURN 

S10 LET E= 
S20 FOR Ast T 
330 LET EsE+F i 
S40 LET A=s=H+F 
S850 NEXT AR 

S60 IF =3 THEN GOTO 368 


E 
IF G=@ THEN RETURN 


Tic Tac Toe 


S80 IF E=s8 THEN GOTO 320 

e390 IF G=1 THEN RETURN 

300 IF Ese THEN GOTO 328 

9210 IF tse THEN RETURN 

9290 IF E=s8S THEN GOTO 32eag 

930 IF G=3 THEN RETURN 

940 IF E2sl GR E=4 THEN GOTO 3792 
9590 RETURN 

960 FPRINT ‘| Siegasseeeas: 

a70 PRINT 

S8Q PRINT 

9990 PRINT “CO YOU WANT ANOTHER 
GAME?"',," t¥ GR NI" 

1980 INPUT FK§ 

10805 cLs 


19010 IF K$<:"N" THEN RUN 
l21iQ@ PRINT “Ur, THANKS FOR PLAYI 


ae s Chom 
45 6 4 0 6 
7 Ss ¢Q x UY x 
15> = CG x oS 
4c 6 Ooo x 
oe x O x 
Ge s ; = 
dg 9 6 dF 6 


m 
c 
x 
j 
Co 
if 
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Music (2) 


This program 1s called Music (?) because certain musicians may claim the 
definition of music is not wide ial a to stretch to the output of the 
computer in this program. 

The sound, which can be quite musical, 1s produced through the 
television speaker. (You may have to tune the TV slightly off the 
optimum position for the picture to hear the sound at its best.) 

This program, by Tim Hartnell, produces music at random, with a 
particular note being produced by each of the Z loops. For additional 
notes, of ditterent pitches, all you need to do is add extra subroutines at 
the end, and modify line 18 to all for them. 

Notice how line 18 takes the place of the ON . . . GOTO command 
available in many dialects of BASIC. Line 18 takes the place of all of the 
following lines: 


IF K = 5 THEN GO TO 220 
IF K = 4 THEN GO TO 180 
IF K = 3 THEN GO TO 140 
IF K = 2 THEN GO TO 100 
IF K = 1 THEN GO TO 60 
IF K = 0 THEN GO TO 20 


You should keep this programming technique in mind when you are 
getting short of memory. Tim Hartnell’s program is followed by a 
shortened version by Ken Mahogany. 


REM MUSIC (7) 

REM (Ci HARTNELL 19382 

LET KsINT t‘RND+6! 

REM NOTE HOW NEXT LINE 
WORKS AS AN "ON..,.GOTO" 


b> b> b> ps 
J) ONE 


18 GOTO tee2a AND K=5)4+(1898 AND 
KRedi¢i2@ AND K=90) 4+4(60 AND Kal) + 
(108Q@ AND FKs2:4+:1140 AND Ke3! 

2eQ FOR 2Z=l TU 1Os (RRND) 


42 FAST 
SS IF RNG:.S THEN RUN 


7Q SLait 
35 IF RNO?.S THEN RUN 
108 FOR Z=1 TO RND+62 


078 E> Lee Ps eH bE Cd DT 
Ep Ep Ep ps O00 Es ES TE Es EO 


P00 Fe Pe Tee ee Te se em GR be Re Ro Eo pa pe 


Le 


Music (?) 
IF RAND:>.5 THEN RUN 
FOR £21 To LBs (RNDsS0! 


.= THEN RUN 
FOR Z=i To 10#(RND+éo1 


IF END:.& THEN RUN 
=i °TO 10% (RND#8a! 


REM #MUSIC 


1 To RND+s60 
FOR Z=1 TG RND#60 


PAUSE PND+10 
RUN 


§7 
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This tightly written program allows you to use the “5,” 6,” °°7,” and "8" 
keys to move the PLOT blob around the screen, drawing pictures of your 


choice. 


trail. 


Ettchasketch 


Once you've got it running, try to modify it (a) to give you a choice of 
starting positions, and/or (b) to “turn off” the blob from time to time so 
that you can move it to a new position on the screen without leaving a 


LET S =sVJRL Z 

LET &=H 

LET ASsINKerys 

IF ASS THEN GOTO 29 
LET AtA+t FR S2° FH fags 'B 
LET &S-6+:Age"'S")3 -(AgH"S"S 
PLOT £&.# 


89 


Etchasketch 


Life 


The game of Life was invented by John Conway of Cambridge Univer- 
sity, England, in October 1970. It simulates the birth, death, and growth 
of cells in a closed colony. 

Before the state of a cell for the “‘next generation” (a generation is a 
complete check and reprint of the grid upon which the colony lives) is 
determined, it must be compared with the eight surrounding cells. If 
there are two or three occupied cells around the one being checked, and 
the one being checked is occupied, there is no change; it survives till the 
next generation. If there are three and only three occupied cells, and the 
cell being checked 1s empty, a cell is “born” there in the next generation. 
If there are four or more neighbors, the cell being checked “‘dies,”’ that is, 
is emptied in the next generation. 

That is almost all the information you need to construct a game of 
Life from first principles. There is just one more thing—the rules are 
applied all over the grid at once, so you need one array to hold the current 
generation, and another to hold the new generation, so that changes for 
the next generation do not affect cells that have not yet been checked in 
the present generation. Set up a 10 x 10 grid, and try to work out a 
program (a) to place some cells on it; (b) to check each of these cells in 
turn in accord with Conway’s laws, and then update a reference array; (c) 
to copy the reference array into a print out array; and (d) to print out the 
colony and start again. | 

Here’s one way of doing it using two data statements in the form of 
strings that are accessed element by element. A$ in line 30 contains 
information regarding the numerical relationship of cells to each other 
(e.g., +1 is one to the right, —1 is one to the left). A$ in line 90 is the 
position of the starting cells when the grid is numbered one to 100. Line 30 
contains the following: minus sign, plus sign, equals sign, pound sign, 
graphic from the “S”’ key, graphic from the “‘2”’ key, graphic from the “‘1”’ 
key, space. Note that there is a comma after the last element within A$ in 
line 90. This is needed for the data routine to work. 

Other starting colonies you can try are 


BEEHIVE: 45, 45, 46, 64, 65, 66, 74, 76, 85 

CROSS: 43, 47, 54, 56, 65, 74, 76, 83, 87 

MOBIUS: 23, 24, 25, 33, 34, 35, 43, 44, 45, 56, 57, 58, 66, 67, 68, 76, 77, 78 
RUSSIAN: 33, 34, 35, 36, 37, 38, 47, 56, 65, 74, 83, 84, 85, 86, 87, 88 
FLAME: 16, 26, 36, 46, 51, 52, 53, 54, 55, 56, 57, 58, 59, 66, 76, 86, 96 


Life 


78 OIM AilzZza: 

SQ CIM Lilie: 

SQ LET 4$2="64,55,.65,75, 76,46, 
B,.fO,86," 

18¢@ FOR Asi To LEN AS STEP S 

11Q@ LET AUREL AS(A TO A441) 1321 

T2Q LET Litval AGIA TO Atl)3=1 


NEXT A 
i4d@ LET GENERHT ION=8 


on 


1s@ GOTO 31a 


150 LET sENERRTION=GENERAT IONe1 
17@ FOR Usa Tae g 
160 FoR =] To g 
198 LET =U+ji@+B¢e 
2080 LET = 
e1lQ@ FOR T=] Ta & 
220 LET SH+H IF +E (TT) ) 
230 NEXT T 
489 IF ASFisl ANG As<:+S AND Hesse 
THEN LET LitrFt = 
rat IF AtF:i=@ AND H=3 THEN LET 
LiFisi 
26a NEXT E 
27O NEXT UL 
275 SLoOtl 


280 FOR M=1 TO 100 


“08 NEXT 
10 PRINT AT 3.9, 
S20 FOR Usl TO 


33Q@ PRINT AT 3,10; "GENERATION ° 
, GENERATION | 

400 FOR Gel Tea 169 

419 NEXT & 

420 FHST 

430 GOTO ise 
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GENERATION O GENERATION © 

& 8 8 7 
= a a s 8 & 

2 2 8 2 8 & 8 

GENERATION 1 GENERATION 1 
# 

2 8 @ 3 e8 & 

a 8 8 Li 

2 8 8 & 8 & 8 

z 
GENERATION 2 GENERATION 5 
& 

Ss 8 8 2 e8 &8 

® e8 &@ & 8 S 8 
) a & 8 a & 

& 8 8 & 8 aS 8 

e 8 & 

GENERATION 3 GENERATION 6 
Rg & 8 & 

z & a | 
3 a 8 & 
8 & 2 a 
& a # 8 8 S&S 8 & 

& a 


Life 93 


GENERATION o 


GENERATION 1 


GENERATION 2 


8 
s = 
S 
s a 
a 
SENERATION 3 
& 
= e8 8&8 
& 8 S &@ 
2 8 8 
B 


GENERATION 4 
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Tenby 


Tenby is a relatively simple gambling game played with two dice, based 
on craps. To play, you roll two dice and add up their pips. If you roll a 
seven or an eleven on the first roll it is called a “‘natural,”’ and you win, 
ending that round. Rolling a two, three, or twelve on the first roll is a 
disaster—the round ends immediately. Rolling four, five, six, eight, nine, 
or ten on the first roll becomes your “‘point.”’ The aim of the game— 
assuming it has not ended with the first roll—is to roll your point again 
before you throw a seven. 

The program keeps a tally of your wins and losses. If you like, you can 
modify the game to allow for betting, either with one player, the player 
and the computer, or two players. The percentage “‘ahead”’ you are 1s 
shown. If this is a negative number you are—needless to say—behind, 
rather than ahead. 


10 REM TENEY 

ev LET =e 

3@ LET L= 

4Q@ LET W=8 

SQ LET e2=64l | 

BQ FRINT AT 3.4, ""GRHME NUMBER " 


PRINT APF ¢,.4; "WINS: “GW OL 


Jose Ss: ak 
7S IF L:@ THEN PRINT AT 20,9; " 
YOU ARE SHEA By "SINT (iW=Li #10 


OAa-Li-10a:"° PERCENT" 
SQ GOSsuB 22a 
SQ IF A=ar oF s=ll THEN GOTO ss 
i! 


if Ros DOR AH=le THEN 


+ + 


220 PRINT AT 14.4; "YOUR POINT I 
130 GOSUB 220 

14Q IF A=P THEN GOTG 330 

16Q@ IF A=? THEN GOTO 340 

ié@ FOR T=i Td 50 

17@ NEXT T 

180 GOTO 122 


He@a PRINT AT @, © “PRESS § TO RO 
pL CDIICE’: AT 2.8: De 
aie IF TNKEY$<:"D" THEN GOTO 20 


eB 
2-2 PRINT Bar 2@.0;" 


es 
Fea fee tease Ty 
ry 

oe 


Mm &-- 


Cfo d= Tee 


I 


Ro OC > Late ee 


LPP ese ey en 


GuO- JON P Lalo necaha-J 
Ey Fy OF - 


fy Gy C3 
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Tenby 


ET ASsInNT (§'RNOS64Li4INT (RN 
T To 5S®@ 


NT AT 2,0, "YOU ROLLED "; 


7; OU WIN” 
7° YOU Spd" 


CET itsidet 


e 
PRINT Tt £,.6, "YOU LOSE" 
7.8) °vOU iMekis" 


FOR T=i TS 180 


GoTa sa 
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Battle 


This program by Chris Callender places you on a checkerboard measur- 
ing nine by eight, in which you move diagonally, and capture by landing 
on top of an opponent. There are no multiple jumps. 

The Timex/Sinclair 1000/1500 will have the first move in each game, 
and the aim of the Battle ts to capture six of your opponent’s pieces before 
he, she or it manages to do so with your pieces. 

You're playing from the bottom of the screen (0) and the computer 
from the top (X). You move by entering the number down the side 
relating to the square you’re moving from, and the square across the top 
or bottom, as a single two-digit number, then—after pressing NEW- 
LINE—the two-digit number representing the square you're moving to. 
IHegal moves will be rejected. 


5S REM BATT! 

6 CIM Bil: 

1Q@ LET &8$: 2: 

2eQ LET 8:2: 

2a LET Bs: st: 

409 LET Bid: 

SQ LET &8:8: 

BQ LET Bis: 

7G LET BsSi?7: 

SQ LET 8$:&: 

SQ LET Esti 3: 

iO6a LET Bil 

182 LET Hasse 

1065 LET case 

110 CIM S$ (22.1331 

115 FOR Ast To 10 

Ti? LET e&s$s63 641 

le0 FOR Bei Te 11 

125 LET 38°, 6B: s<C$lEe TS 1 fd 
130 NEXT &E 

132 NEXT 4 

135 IF AND:,.S ae). GOTO 152 
140 LET S$:°5 Sis" x 

24) LE? S8is.7)e" °* 

150 GOSUB Lise 

155 PRINT 

ane IF cCSaset HEN PRINT ‘'"I win 
tt be 

16@ PRINT AT 15.6: "FROM?" 
165 INPUT MoUE 
_i6e PRINT AT 18,4:;° “SMONE; ' Ta 
Le? LET Aa=inT (MOUES1@) 

368 LET &=- sf E-1O+A 


L7@ INPUT MOVE 
afl PRINT AT 15,8," 


LYe LET CsiIntT tMOVEs‘1@)} 


175 LET Dsnovue-104C 


180 IF ABS (A-0!<+1 OR ABS (6-0 


'<>1 THEN GaTa 162 


1390 IF S$(tC¢41: (B41) = 


T HSB=sHS4+1 


21Q@ LET 28 tRe+1: (B+1i 2" 
220 LET 838$:it41: (B+1) =' 
240 GCOSUB 11232 
245 IF HsS26 TRH 


“OL 
250 LET Age tO" 
255 GOSUB 18ea¢ 


“xX THEN LE 


1) 
Oo. 


FN PRINT “YOU WIN 


257 IF FL=1 THEN GOTO 300 


c6O@ LET HS= 
265 GOSUB igad 
308 LET S#itEi iFis" * 


S@S IF S$t&+6! (F+H) ="O" THEN LE. 


T CSstS4l1 

310 LET S8tE+t6: (F +H) 
329 GOTa 158 

1000 LET Es=e 

1081 LET Fe=e2 

1Qa@2 LET G=a 

1803 LET H=2 

1@10 LET FL=8 

1Q@2e0 IF S$! (Fi es 0 me" 


fu 
a 
: 
es 
i 


a, 


t 
- 
+} 
- 
i 
40 Ot 47 3 25t 27 457 Ft 
S4mAmAm—-tn 


+= 
ae) 
CTs 
at) 
oo] 
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OO 
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tI 
wl 
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SOTO i1a@ie¢ 
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ut 


POT PRE ERE EERE REE BREET bh ERE EE 
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Cis 
ar 


RETURN 


=x" 


THEN GOoOTSa 
OR S#tE+ 
UR S$ieE- 


13F411 sRg& OR SHEIE- 


1: (F-1) sAG OR SS$(E- 
i; LET A 
AND H<:>0@ THEN LET F 


IF FL=i THEN RETURN 
IF F:>i@ THEN LET 


IF €:18 THEN LET 
IF F+il THEN RETURN 


FaF+1 


E=2 


UO: 


Battles 
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Mandala Checkers/ 
Chopper Checkers 


This program tollows the standard rules of checkers, except that you play 


by starting in the corners of the board rather than at the ends, there are no 
multiple jumps and no kings. Any piece may move in any diagonal 
direction. Captures are as in checkers, by jumping over an opponeant’s 
piece into an empty square, always moving on the diagonal. Once you’ve 
entered Mandala Checkers in line with the first listing, you can easily 
modify it to play Chopper checkers, which is closer to ordinary checkers. 
In Chopper, you move from left to right across the board, while the 
computer moves from right to left. You play again as in checkers, except 
you can move in any diagonal direction as if you had a board of kings, 
there are no kings, and no multiple jumps. You move in both games by 
entering your move as a single four digit number (like 3344) which means 
you're moving from square 33 (the number across the top, then the 
number down the side) to square 44. | 

You'll find that this program, which uses four character cells for each 
square on the board, produces a most effective display, which aimost fills 
the screen. The board is printed at the start of the game, and from then on 
only the squares that change are reprinted, so it plays very rapidly. 

The following are the only line numbers that differ between the two 
programs: 


6176, 6440, 7090, 8070, 8080, 9010, 9020, 9040, 9105, 9190. 
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20 GOSUB 38a¢e 

30 GOSUB sade 

25 #SLOoOi 

40 GOSUB Yade 

SY GOUSUEB sade 

6Q IF HUMN=s=/ THEN PRINT AT 13,90 
PSO BPIN 5 i 

YO IF COMP =? THEN PRINT AT 135, 
O:.'T WIN td 

SQ GoTo 4a 
EQOA REM +40 0M LITER MOVE ss 
BQ@LTA FOR 2282 To 11 STEP -i 


BQ@2a IF Aizist THEN GOTO 6&65@ 
BGS NExT 2 
BGd0 SOTO s&eee 
6BQS50 LET vs-li 
Bass IF 2+¥ 255 wR Z47¥c12 GR Z+e% 
13S OR Seeey : 44 THEN GOTO 80786 
OBGead ITF Aizey: =H ANDO Aigz4+ee71 SE 
THEN GOTG 81e8¢ 
6Q7O LET Ve-S4 $v se-111 +94 (2-93) +1 
Be CyY=sSi4ty=2+18a! 
BWSBOG IF vy<ra THEN GOTO 6¢55 
eOsS NEXT < 
630 GOTa 8ee¢a 
ceive LET SH iZi sk 
6110 LET 8iiev: sE 
else LET AIizgeecev i 3d 
S120 LET CONF SscoMPel 
oe PRINT AT 2,22; "COMP. seem: OY 
SBlSQ LET FseInNT §tZe473 -18: 
Ble@ LET GSlt yy - i Oe 
E172 PRINT AT 2+ ,2eF,"' "SAT 2 
G+1,.2#¢F; ' 
Bl?ve LET FeINT ‘tZ4e4y7) -18) 
SBlrd4 LET G=2+2x7-104F 
Sires PRINT AT 2+G,2+F;"R'; AT 2+ 
s+] ,24¢F; " 
5180 LET Fe =INT (2/16) 
S182 LET GeZ- ~iOeF | 
Sisd PRINT AT 2+5,24F; " "TRAT 2¢ 
Be get 


6199 RETURN 
6200 REM a MOVE = 


6220 LET KeINT (‘RND#78) 411 

S230 IF AK sC THEN GOTO 82690 
6240 NEXT 2Z | 
6250 GCGOoTa eee | 
6260 LET Y=e-ll 

628Q IF Atk +47: sE THEN GOTO 6330 
6290 LET y=2-9% (¥211) 49% (¥2-9) 411 
e(v¥=2Si¢4(¥=10@! 

63008 IF vy<:8@ THEN GOTS 6279 

6310 NEXT Z 

6320 GOTO 85a 

6330 IF Keesy¥:8S OR Keee¥<11 THE 
N GOTO 8402 

“lad IF Rike-es7i =H THEN GOTO 6e4 


Mandala Checkers lol 


6350 IF K-2*y<ll GR Keaeerv:>68S THE 
N GOTO 6428 | 
6360 IF A(K-e24+Y¥!i =H THEN GOTO 6ed4 


4 

6400 LET Aik+y) =C 

6410 LET AKI SE | 

6420 LET FsINT ( (K4¥) +103 

6430 LET G=sk+yY-1O4F 

6449 PRINT AT e#6,2#F; “FAT 2+ 


6450 LET FHINT tk+190) 
6460 LET G=K-104F | 
6470 PRINT AT 2£+G,eseF; "' “SAT e¢ 


4 TO 200 
INT (RND#76) +12 
1 


6 = 
6520 IF Aik! =C THEN GOTO 6620 


6600 IF AiK-11;32E THEN LET ¥=-11 
6610 IF AtK-11!=sE THEN GOTO 6400 
6620 IF AtK-9:! =E THEN LET Y=-93 

6630 IF AtK-931=2E THEN GOTO 6488 


7000 REM #¢FPLHYER MOVEss 
7010 PRINT AT eQ, O06; "ENTER YOUR M&M 
OVE AS ""3S3adeea"" 


+ | 
YO3O IF LEN As +4 THEN GOTO 7829 
7049 PRINT AT 28,0; " 


7OSO LET ALSVAL AGEL) 
YOS5S LET AestVAL A a 
eine 
“O70 LET A(18+4+61+B6B2) = 
7880 LET Ai1@#A1+AS) =E 


7@9@ PRINT AT ef Be, 2+#Bi1; ° ane 2h 
2+8e+1,2+B1; ' 
71900 PRINT AT BaR2,, 2tR1; " AT 


2tHeo+l,2eAl; 
[oe IF ABS (A1-B1) =1 THEN RETUR 


Y,ileO LET AHUM=sHUMS1 
[sor LET Aitid®seb1l+62+10+A1l+Adi 2 


=E 

7130 PRINT AT (He+Be) , (R1+61) | 
",AT RetBetl1, AL+B1; 

¥id@ PRINT AT 8,22; "HUMAN: ">; HUM 


SQ@00 REM PRINT BOGRRE - STARRT 
SBG40 FOR Z2=8 TO 1 STEP -1 

Se6a FOR xsl Ta 8 

Sa7’rOo IF Aiives (+X) =H THEN PRINT A 
T 24% ,242; " @ US AT 24% 41,2842; 

S080 IF a iidezee) 2c THEN ing Fy 
T @¢x% 2842; "RRP SAT 24%41,2842; ‘Bel 
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ho OD 


i 
G 
No 
ED 
[~ 
4 


113 
3677686475665 748" 
eid 
2eS4 


acca n> =e 


L 
43635414. 
476788135 
9040 LET 
eg 


ot 01 C0 OF 4 --. 
1 Ch nu a 


- Ct) 


T ioe | 
ogy os 


LOG 


Ue Lise 


9@7O NEXT 
ET 


0 pt 
Lamm mn 


Nao 
i 
a 


RHC TRK CI 


C30 ToT 
wid own 4d wa AGI 


as, .==, 


LET 
9140 NEXT 


0 Ts 
aa 
nA GS 


hat. 1b ha. Ne MN 
Woe be 
mar 


9410 FOR Z=l TU 1? 
S420 PRINT AT 2£; 1, “B': AT 2,15; 'R 


9430 IF eaes¢iInNtT tz 
AT 2,8;CHRS (1864272) ;,AT 2,193; 
ARS (156¢+Z-2! 


2449 IF 2ziINt Pe ae PRIN 


T AT 2,0; "EH"; AT 2,19 
S450 NEXT 2 
9500 RETURN 


THEN PRINT 
$41,242; "Be 


LE2ces¢5135s4¢e51" 


16182le3s252/5e23 
S6SS61636567 72? 


° S6455463 72517265 


f2ji2z THEN are 
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CHOPPER CHECKERS 


ev GOSUB 3008 

3YW GOSUB seve 

35 SLOW 

409 GOSUB /8eaea 

78 GOSUB sa@ae 

60 IF HUN=? THEN PRINT AT 19,8 

» YOU WIN °VW 
7O IF COMP=? THEN PRINT AT 15, 


@ 
BQ00 REM +4COMPUTER MOVE 
6810 FOR 2288S TQ 11 STEP -i 
6020 IF AtzisxC THEN GOTO 6958 
6830 NEXT Z 
60490 GOTO s2ee 
6050 LET yY=-11 
6855 IF 24+7:88 OR Z+ey¥yill OR Z2+e+ 
Y>:83S OR Z+eeys11 THEN GOTO 6079 
6060 IF AitZ4+y! sH AND AlZ+eey7) =E 
THEN GOTO 6188 | 
6@7OQ LET Ys-B4 (¥2-113 +9% Cy <=-3) +1 
Be (Ye 40Y¥=1E9! 
6@SaQ IF vy<:>8@ THEN GOTO 6eS5 
68085 NEXT 2 
6a90@ COTA &2e8e 
618@ LET AtzZ} =E 


B110@ LET AliZze4ey: sE 

6120 LET AiZzeesy) 2C 

6130 LET COMP=sCaoMPe1 

6140 PRINT AT 2,22; "COMP, "COM 


B1S0 LET FeInT (tZ47!1 -10: 

S160 LET Gsle7 -LOsF 

6i70 PRINT AT 220,2¢F; " “IAT 2s 
G+1l.2eaF; 

172 LET FeiIntT ((24¢23e71-10) 


it 


104 


Board Games and Simulation - 


SBivyd LET tbect+247-1lOsF 

G1l7S PRINT AT 246,24F;: ‘Sy8': AT 2 
S¢+1.24F; 's™,' 

Blsa LET Fe&InT : 2-181 

BlS2 LET Gel-ider 

Bld PRINT AT 2465 ,.24F; ° “TET e+ 
StL. a2sF: | 7 

Bisa RETUR?, 

BSGeW REM +4NON- SAPTURE MOaUE es 
Bela FOR Zsi To 200 

Bee LET FsInT (<'RNGS?PS)3 4127 

Gera IF 8iki =t THEN GOTO B25 
Bed0 NEXT 2 

B2SQ GoTo esSe¢a 

6260 LET ys-1i 

SB28Q IF Atk evi sE THEN GoTa 6€&238 
6230 LET vYas-S4iys11)1 49¢ (¥e-Si1411 
eiyosaiety side: 

S200 IF -,<:2 TREN GOTO sera 

B210 NEXT Zz 

B328 GOTO 85890 

OS3Q IF r+esev:25 OF Keeeryv cll THE 
N GOTO 8S42¢ 

Bode TIF Bik +e4"i se THEN GOTO bed 
i 

OBS5@ IF K-e2ey-Li OR Keeer+35 THE 
N GOTO edae 

Soe IF Atk -2er¥: tH THEN GOTO Bed 
G 

BdOQ LET Alek +¥i =f 

B4]@ LET Stk: sE 

Bd4eAQ LET FeInt Ieee) - LE! 

B430 LET oGak.+v-l04F 

B4d4Q PRINT AT 2235,2¢F; ‘Sg? AT 2+ 
S+i1, 2erF: a 

BdS5@ LET FeHINT (K-10) 

BEd80 LET G=2k -18-4+F | 
B48 PRINT aT 2e*+3 .2F:" “AT ae 
S++ .a¢F ; 

5450 “RETURN 

feSaea@ FOR sei To 200 

SSi@ LET #t<esINT (‘RNDs78!411 

BS28 TF Aiki <0 THEN GOTO BeBe 
BES3Q NExT s 

&S540 PRINT AT 2.8: "F SONCEDE THE 
SAME’ 

BSSOQ STO | 

SEBQAQ ITF Alik-iil: s<E TREN LET ys-ii 
SB610Q IF Rir-iit: <E THEN 6caTo e8deea 
B60 IF Aik -3: s& THEN LET Yee 
6520 IF Atk -s: sE THEN GOTO se48e¢ 
GBEGda GOoTSG 8S4¢ 

7ORBO REM #¢PLay ER MOVE s+ 

FaLA PRINT AT ee, O:; “ENTER YOUR M 
GUE 9S UCpadare” 

T@e2esa INPUT As 

TESA IF LEM Ass sa THEN GOTS Peed 
TOGO FPRINT AT 22 Bi 

FTOSOA LET SisVet Agil: 

TeES LET Aes=VaL ASle! 
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TOE LET BisvAL ASIS) 

7@eOesS LET BesVat ASids 

Tera LET Ali@seBil+Bei =F 

TeSEOQ LET Atl@szAi¢+Re) =E 

FQ90 PRINT AT _2+B2. 2+61, ‘di: AT 
2e2#Be+1.,2+Bi 
Y Lee PRINT AT e+Ae. 2erHil; | en — ae 


e*+He+1 2H: ' 
fSl-B1l!=<i THEN RETUF 


7110 IF ABS 

M) 

F7ie@ LET HUM sHUMN1 

roe LET Al 18sb1+B2+10#A1+A2) 2 


| TAT AD eB2e 1. it te 
2140 PRINT AT 8.22; A HLIMAN: RLM 


Ysaea RETURN 
REM PRINT EQARD - START 
1 STEP -i 
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NEXT 
RET 
STOP 
STOP 
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9140 NEXT 


9130 NEXT 
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S419 FOR Zsi To 1 

a420 PRINT AT 2.1; "9; AT 2,13; ‘fj 
3420 IF e<¢INT tf2r2) 22 THEN FPRINT 
eT 2,68: CHES 156442 /21;AT 2,139,080 
ARS (1584Z-e2: 

2440 IF e2+¢INT (‘Z2Zreie+2 THEN PRIN 

T At gawk ff oa 2,13: "R" 

S45Q WEST 2 

SSQQ RETURN 


Blackjack 


Gwyn Dewey’s adaptation of the famous casino card game will have you 
battling to defeat the computer. Very clear prompts are included in this 
program, which even draws the backs of the cards as they are dealt before 
turning them over. The aim of Blackjack, as you probably know, is to get 
a total of 21, or as close to 21 as you can, without exceeding 21. Cards are 
worth their tace value (with picture cards counting as 10), except for the 
ace, which can be 11 or one (if counting it as 11 would cause you to 
‘bust,’ or exceed 21). You enter ““H”’ to be “‘hit”’ (ask for a new card) or 
“S” to stick (stay with the hand you have). If you like programs that 
maximize the grahics potential of the Timex/Sinclair 1000/1500, you'll 
enjoy watching Blackjack in action. 


Zoe UN lh odd 
Zee ‘ = Bes 
= = 

phe ce ae 
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? 


ereareseersartoarrserrsgercarrsar 
EVO 01 ENOL 


r 


reprrearrcerecarres 
nea 
“ul 


tN 


rearrearrsaeregrregres 


SOSuUB Saad 


i a = ='? 8. aD -- oe dh. lh a ll a a an. 2 a a ool ok ok 3 


ee le Ue Oo ee Oe eS OTS EE OT OE 


+ Tee. ie 2 Bees es Dee «ee os ee. ee | eS ee - Dee = ee = 


4 PRINT 8s 
S FOR Tei To 1a 
S PRINT _" [iis 


st 
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Card Games 


2 PRINT _ Sa 


S NEXT I 
5 PRINT 6s 


3Q PRINT AT Ss, 13; SERIES 


RE oe 


e2 LET Z§= J > 6 7 3.9 A 
BCD 1858 38 48 50 68 78 58 o8 At BED 
@i e2 6384, 85 85 8 85 86 86 86 Fc 8p 8) 8585 
mamomem7@amomnmESCeD™ 1a 2s 3a 4a Sa 
7a Ce Se Ae Be ve De * 
es DIM aeoar em? 


40 IF INKEYS<3"D" 
S@ PRINT AT $5135" 
2 PRINT AT 8.135; 
; i AT 12, i3;" 


THEN oorg.*2 
;AT 4 


—_ 
a 


14 
0.8 


a 

a 

t-4 

vA 

of 
DDD 

44-4 
eS an Dis an tae 


THEN LET Hes 

SR Iso THEN LET Zele 
THEN GOSUB 3808 

£2€@ THEN GOTO 3100 
— LET H=8 

LET Dil: . INT eee ts eae s 


FOR N=] To 6 
PREINT AT Z4+N,H; 
S$) eeBi¢f th [ODE < 


NEXT WN 
LET Bus 
LET Esti: sz$i(Obrzri Ta OtIi¢l 


LET Psr=i | 
LET 2$=Z8' TO OCirli1-1:42$(0! 

To 3 

NExT I 

FoR ral yn Tie a 
IF ESid,ii3s" 
THEN LET T=) 


Ni “4 $0.4 fe p= 


COIN 
KH 
n 
Hert 


MeEwZHoO-) OOP Wee OWE wow Oe 
- 


— 
® . 
. ao a 


to} 
“WME+ OG Gis. — uu 


DWEGG! ts 


t- 


TB ed ned cole eel 


2*' AND 
UAL E 


150 IF Esgiui.i:>'"S'" THEN LET Te 
+12 

, i535 TF Esgitui,i:=<'B" THEN LET Buds 
1680 IF Esgid.iis'i" THEN LET GsG 
+i 

L7Q IF Estiui,d:=2"1" THEN LET Te=T 
+ij 

LS&OQ NET « 

15Q IF Ts22 THEN LET T=T-18 

20@ IF Tse THEN LET G=G-1 

Z1iS IF GS=i AND BU=sl THEN GOTO 5 
aaa 

2l7 IF T=ei THEN GOTO 6000 

e2zQ LET silts 

238 PRINT AT 19,4; "REE EEE 
TS PRINT AT 11,4; ‘DRS; 7; 
24Q@ IF INKEYs="'S" THEN GOTO Saa 
250 IF INKEYg$="H" THEN GOTO 2728 
26a GoTa 24 

2?7Q PRINT AT 12,4; ‘Ss 
S1@ LET I=I+i 

S20 LET DirtietiINT (RNDseFi) 4214 
“225 LET H=eH45 

S30 FOR Net Ta & 

335 PRINT AT FZ4N Hi ASL CICODE 7$ 
(Orc Titi a-gbie+i tCcOope 2Ee(b>tITi +413 413 
ia: 

3408 NEXT WN 

359 LET Estill: =Z$i(biIh3 

=68Q LET 2$2z7s!i To Bi: Ti -1) 429% Di 
ti¢e Tl 3 

370 IF Esil,i::=s"2" AND ESI, 1) 
-2°O" THEN LET TeT4+UAL Egil. 23 
230 IF EsitiI,i::="A" THEN LET T= 
T+i9 

SSQ IF Es itl, 2: 2°1° THEN LET G=6 
+1 

S35 LET FerF-1 | 
400 TF E¢irl.,t:=e"1° THEN LET Te=T 
+i 

410 IF T:Zi AND G=O0 THEN GOTO & 
Sag 

430 IF T:21 AND G:O0 THEN LET Ges 
GS-1 | 

434 LET Wstied 

425 IF T:21 THEN LET T=T-10 

435 IF Us THEN soTS 4000 

$37 IF Tsiil THEN GOTO 6e0a 

440 GOTa 222 

SQQ CRINT AT 12,26; “Sage: 

SQ@2 PRINT AT 13.26; T 

SQ@4 PRINT AT 18,4; ' 
SQ6 PRINT AT 11,10; ‘ER 

21a DIM Esi5: 

FSlS LET G=@ 


Blackjack 


Ill 


— ET Card Games 


seQ@ FUR JT=si To e 

S3@ IF I=1 THEN LET H=3 

240 ITF fei OF T=2 THEN LET Z= 
SS0 IF T=2 THEN LET H=3 

S60 LET Dit: (INT (RNDEF) 3 #2) + 

vi 
SYO FOR Nel To 6 
SOQ PRINT AT Z+N, NH ASIC (CODE Zs 
a ee «| ileal £2$(Dt(Ili 4134135 
14 .N! 

SSS LET FsF-il 
SIO NEXT fs 
TSS LET Bose 

808 LET ESii:s2gi(Db(t) TO OtIi +1 
i 
B1lQ LET Fsr-i 
Be LET 2$22$: TO OI -1)4+Z2g$ (6! 

tite TO 3 
BsO@ NEXT Tf 
B40 FOR J=1 TO 2 
BSQ IF ESius+=e"2" AND ES(Ui ca" 

“THEN LET UsuietVAL ES¢ (J) 

—* IF ESild:>"S" THEN LET UsuU+l 
BSS IF Esti s"B" THEN LET BJ=l 
S70 IF ESitis'1" THEN LET G=G+4+l 

Pi IF Esti s°1" THEN LET Ust42 
Bega NEXT J 
WO IF tisee THEN LET UsU-10 


710 IF Us22 THEN LET G=G-1 
712 IF G=i AND BUsl THEN GOTO 3 


71S IF Usel THEN GOTO 2800 

716 PRINT a 11,190, U 

720 LET cC&S= 

70@ IF CS=s5 ~ OND U<s21 THEN GOTO 


740 IF Usel THEN GOTO 2000 
742 IF Usxeli AND G<=0 THEN GOTO 


745 IF U:>=T AND VU<cS THEN GOTO ? 
750 IF VeS AND CS5S=S THEN GOTO e2 
775 IF CS=2s5 AND U>2l THEN GoTo 

780 LET H=H+S 

7930 LET tS=+tSe4l 

SOQ LET OfTiasttINnT ctCRNDSsPFi) 2]! + 


1 
SOS PRINT AT 11.190, 0U 
S$1Q@ FOR Ne=l To 


mn 


S22 PRINT AT Z+N,.H ASI (CICOBDE 2s 
a ieee fCOoE 2Ze(b(Ii 411413 
)3 

330 NEXT W 

S40 LET ES itIi2xez$(0(T) 3 

S50 LET Z2$2=Z28' TO Ott} -114+2Z2$/B! 


Ili¢e2 TO ! 
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S60 IF Egil: :=s°2" ANDO ESt lice" 
“ THEN LET UstieUARlL ESit} 
til IF ES(I::=s"°A" THEN LET Uslie 


SBOQ IF EsSstiT: 2°12" THEN LET e641 
SS0Q LET FoF-i 
S@Q@Q IF Es: T:=<="1" THEN LET Ustvlel 


938 IF U>21 AND G:>@ THEN LET Us 
935 IF 8:21 AND G:0 THEN LET G= 


948 SoTS 7? 
: 13,4; “SRR 


151@ PRINT AT 13.4; "ang sepaaeie 


1520 LET BET=BET - (COoBET +2: 

1588 SsaTo gsseeaea 

2Q00 FRINT AT 10.4: pelea eal i 
eWl1a PRINT AT 12.4; "Bees n 
2020 LET BET =BET-GOBET 
2Q3a GoTo Lssa 

SYWAGO PRINT AT 19,4; ' messi 
RACK 

20108 PRINT AT L1,4: ' Secs iS 


2W20 LET BET=BET-  (CGOBET #31) 
SQ30 GOTO s32e8 

23500 PRINT AT 1lo.d, "iis eee 
2510 PRINT AT lid; See 


O LET BETsS&RET+S50BET 

‘OO BOTS 25aea 

OM PRINT AT 10.4; 'miireRya 
189 FRINT aul Li.d, ‘gaia 


BeAa LET BET=BET+ (GOBETs2! 
4830 GOTa 3eae 
: rr: a "s 


SQ@Q PRINT AT i 
SQ1Q0 PRINT AT 11,4; 


SOWe2eO LET BET=sBET+ {(GOBET #3} 
S938 GOoTa 38288 
SQGA PRINT AT : 
EViD PRINT AT 


a soTa caia 
YQse@ sToeP 

SQQ@Q OIM AgiS2,8,51 
2aa2 FAST 

S005 FOR Tai To 4 
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S450 


S47 i 


SLE 


QO | 


S190 j 


bAbthit- 


=] THE 
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25 “Ae 
si THE 
sez" 

i 

T$=" 

=" 

Bsiiaes 
Hs iis 
HSrcias 
Hei lis 
AHSiiase 
Hgiisas 
HSiiss 
Asi diss 
Hs i las 
SR (Las 
HSi iis 
BS isas 
HSi las 
H*silas 
HS: lise 
AS iiss 
Agiiss 
Hei los 
AS iiss 
Asgiise 
Si ise 
ASi ists 
HSt(iliss 
HSiists 
AS iss 
Si Las 
Asgiiss 
Asli iss 
AS i las 
Agiise 
HS (1l3+ 
Agiinus 
Hei Las 
Silas 
AGils+s 
Hs (ilse 
MSicims 
esi las 
HSi Lite 


Mm LET Fess” 
M LET Fg ga" 4+" 
NMLET Fg=a"Ul" 
. LET Ae 
+P E+" * 
SF Ee' “4K $4 i 
—— ee 
I-11) 41,13 ="9 4 
(-T-Li 41.2! = J§ 
(T-1l!i¢1,31 =U 
(:IT-113 41,41 <6 % 
(T-1'41,5) =<J§% 
‘T-1141,61 ="f 
(I-li¢2,1: "fae 
(feli ¢2,.213 =6§ 
rI-2' 4+2,31 = 
(T-1i4¢e2,41) 59 
(‘T-1!) 42,5: =6§ 
(I-11 42,6: ="f 
(T-1143,1:2"§ = 
(-L[-ll¢+3.21 26% 
(T-13 45,31 =<G§ 
(T-1Lli¢+3,4!1 =J§ 
{T-1'5 43,51 =68 
{T-114+3,6:3 =" 
(I-li¢a,11="9 4 
(-I-li¢t#d. 21 =H§ 
(I-1Li 44,33 208 
;-le-Lied. 4) =U 
1T-11344,51 sHs§ 
(I-11 44,6) =2"f 
f{T-114+5,1132'§ § 
(I-11 +5.,.2) =Hs 
rT-114+5,.51 =<Gs 
fT-211345,413 = 
Tonite eye he 
‘T-13 45,6) =" 
(7-13 46,1:="§ 6 
{I-1)}+6,.2) =H$ 
(I-1) 46,31 =H 
(I-15 +6,43 =J§ 
{I-1) +6,5) mt 
rI[-1) +6 ,61 =" 
(T-114¢47,1]12'§ ? 
:IT-1]:4+7.2: =H$§ 
:T-1)34+7,3) =H§ 
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S490 LET 
SeS00 LET 
Sole LL 

SSeco eg 
SS30 LET 
BS5490 LET 
S550 LET 
SeS6aq L 

S578 LET 
Sooo LET 
SS90 LET 
S500@ LET 
S610 LET 
S620 LET 
S658 LET 
— LET 
Ss65Q LET 
SS60 LET 
sera LET 
S6SQ LET 
soe@ LET 
S?7O@ea LET 
SY1OQ LET 
$+ Ri 

a LET 
| al LET 
e740 LET 
+F $+" FF 

a LET 
a. Let 
a7 re LET 
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; ie LET 
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SS00 LET 
+F $+ FF 

g512 LET 
BSB15 LET 
— LEE 
BS3Q LET 
$+ eg: 

—" Ler 
—" LET 


HSr iss 
HSiciss 
HsSiiss 
Agiinas 
HEic Las 
Si iss 
AsSiise 
Asi ins 
ASiius 
Agiinas 
BSc is 

AHPSiis 

ote: 

HSic is 

HSils 

Bsiiss 
Asi is 

HsSi is 

Asis 

i ee 

i a 

Asi Las 
HSitlas 
HS ists 
Hei Luas 
eEeSiisas 
HS iiss 
HSi ins 
eHeiLase 
HHc las 
eS LAs 
ASL ins 
ASi ise 
Heiss 
Hs iciste 
Heo Las 
HSilas 
~~ ae 


OK HK 


+k ck sk +} 


MH HH HHH HH HAH WH RAHA OW WR 


i ee 


RR RR RRR OR RR RRR FB RR RRR oR BEE 


: i ee i {tad@e 
4m ate” ee * 4” * oe” a + 


* . 


* ~=_—* *oaw* Lad ee 5 eee * 


+7 ,41) =G6§ 
a teat 
#+7,6i =" 7 § 
48,15 2'§ & i 
43,21 =H§ 
+5,51 =H§ 
#3 ,41) =H 
reel 
#3,6)3 =" = fj 
#zg,1is"§a ff 
43,2! sH§ 
43,3) =H§ 
#3,45 218 
+3 .5:) =H 
#3,6) ='"§ 3 
413,11 ="§ 12 
¢10,.2) =H$ 
410, ce =I§ 
410,41 2I§ 
+10,51 =H$ 
+10,81="§ 10 
¢ii,ii=2"§ J 

. 


L-i)} 

I-13 

I-11 

T-13 

I-1)} 

r-i} 

I-li¢2i 

Pat) ad 

i~li¢i 
I-1i+l2,61)="§ G 
To1) 22360) 2°§K 
T-lLi¢is3,23 s"9 '+F 
I-11 413,31 ="§ 
‘I-i)+13,4:="] 
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ae LET AS{L3eiI-1)4+15,5) "9 af" 

+ + ** it 

LET AS(LSe:I-1:413,6) =" K, 

S88oO NEXT TI 

S3s? SLi 

S8S8S RETURN 

9000 PRINT AT 12,4; "! 

S091@ PRINT AT 12,24: 

S020 LET L$=sSTRS BET 

SQS30 FOR v=l Ta LEN L§ 

SQ4Q LET Ls$iy: sCHRS$ ((COSE L(y) 

i4¢1es) 

2a50 NExT ¥ 

S096Q@ PRINT Ls 

aa7O INPUT GOBET 

5 gor O, oe ll CR GOBET>BET THE 

sass 

a2 Bes °°: GOBET 

ag 

o1 

3110 SRINT “vy Ri AAUE NO MONEY LE 

PT." “my PORTER THREW YOU OUT." . 
yOu HARE TN ial STREET STARVING. 

ci2 

glé2 

313 ' TREN RUN 2 

sid | 

98@0@ FOR Mel TH SO 


S310 NEXT 


S340 NExT I 
93590 GOTO 12 


Poker 


Hans Meier of Rustenburg, South Africa, has produced a highly chal- 
lenging version of the card game Poker for the Timex/Sinclair 1000/1500. 
As the program is about 14K long, I'd suggest you SAVE it every so often 
as you are entering the program, so that if you lose what you’ve entered, 
all your work ts not wasted. | 

The value of each card is the character set number of the first 
character, e.g., a 5D 1s a five of diamonds and its value is 33 (the CHR$ 
value of 5), and similarly AE 1s a ten of hearts and its value ts 38. 

The whole pack of cards is stored in a string, (A$), line 2050. 

The actual program begins at line 2040 where A$ and various 
variables are assigned. The arrays are also dimensioned here. Control 
then goes to the subroutine beginning in line 10. A$ 1s then randomly 
‘split’ in line 70 and the two parts then put together “back-to-front”’ into 
a string (X$) in line 80. 

Lines 90—130 make up a loop in which 18 cards (C$) are selected from 
this string at random. The ‘‘card”’ selected is removed from the string in 
line 120 so that it cannot be “‘dealt” again. After printing the card outlines 
(GOSUB 430), control goes back to the main program where the hands 
are dealt in lines 2190-2240. The hands are kept in two string arrays 
~M$(1), M$(2) and Y$(1), Y$(2), which represent the computer and 
human strings, respectively. 

Line 450 (with all shifts in the GRAPHICS mode) reads as follows: 


450 PRINT AT A,B, “shift E + 3*shift 7 + shift R”’; 

AT A+1,B, “shiftS + 3 spaces + shift 8’; AT A+2,B; 

“ditto”; AT A+3,B; “ditto”; AT A+4,B; ‘‘ditto”’; 

AT A+5,B; “ditto”; AT A+5,B; “shift W + 3*shift 6 + shift Q”’ 


The hands are first subjected to a bubble sort. To do this, control goes 
to the subroutine in line 200. The value used to sort the cards is the 
character set number of the first character of each card. On returning to 
the main program, this sorted string is once again placed in M$(1) or 
Y$(1). The first version is used for evaluation and manipulation of the 
hand and the second is used for printing the hands to the display. 

Now the control then goes to the subroutine in line 320 where the 
values of the cards in the hands are changed to real card values. This 
subroutine consists of a loop which extracts a one card (a two character 
String), at a time. If the first part of a string is an A, B, C, D, or E, it is 
changed to a T(Ten), J(Jack), Q(Queen), K(King) or A(Ace), respec- 
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tively, If the second letter is an E or F it is changed to an H or S, 
respectively. (CE would become QH). On return to the main program 
this string is loaded into M$(2) or Y$(2). 

When you have discarded the cards that you do not require (lines 
2380-2510), your hand is once again subjected to a sort (GOSUB 200) 
and change (GOSUB 320). Control then goes to the subroutine in line 
480 where the value of the hand is worked out. This is done by allocating 
an initial value to the hand, then making comparisons to determine 
whether such things as pairs or threes exist, and adding another number 
to the initial one to obtain a final value. 

The initial value of a hand 1s as follows: 0 for a high card, 50 for a pair, 
100 tor two pairs, 150 for threes, 200 for a straight, 250 for a flush, 300 for 
a full house, 350 for four of a kind, 400 for a straight flush, and 450 for a 
royal flush. To this value is added the ‘“‘value”’ of the highest card or pair, 
etc. For example, in line 560 the computer searches for a “‘full house.” If 
one exists, the control goes to line 810 where the initial value for a full 
house (V =300) is allocated. Then a search is made for the threes in the 
hand, and their character set value ts added to the 300. This enables the 
computer to determine which hand wins by comparison of MV with YV. 

Now comes the computer’s turn. Its hand is subjected to the same 
sort and evaluation. Control then goes to the subroutine in line 900. Right 
at the start of this subroutine the variable T (the number of cards taken) ts 
Q. The Timex/Sinclair 1000/1500 decides from the ‘‘value”’ of its hand 
(MV) which line within the subroutine it will go to. Should the ‘‘value”’ of 
the hand be greater than 200 (a straight), then T=0 and control returns to 
the main program. Depending on what the hand is, the computer now 
decides on how many cards to discard. If it has a pair it goes from line 950 
(MV is greater than 50 but not greater than 100) to line 1330 where the 
computer searches for the pair and then replaces the other three cards 
with cards from the pack (C$). On returning to the main program the 
value T is used to print the statement DEALER TAKES T CARDS to 
the screen. 4 

The Timex/Sinclair 1000/1500 again sorts its hand, changes M$(1) for 
printing, and determines the value of its new hand (lines 2690-2780). The 
computer’s card outlines are also printed (line 2750). 

The betting begins in line 2790. When you have placed your bet and it 
is “‘legal,”’ that is, not higher than the limit or than your credit, control 
goes to the subroutine in line 1550. If you enter a 0 for your initial bet, the 
Timex/Sinclair 1000/1500 presumes you want to throw in your cards and 
Start a new deal. 

Depending on the value of its hand, the computer decides how far it 
will raise you and whether it will see you or throw in its cards. But 
beware—there is also a random “bluff” factor built in. Whichever way 
the betting goes, the subroutine ultimately returns control to the main 
program at line 2930. 
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On returning, the computer prints its hand to the screen, unless you 
have thrown in your cards. Control then passes to the subroutine in line 
1900 where the hand is described (V$). This happens twice, once for your 
hand and once for the computer’s. On each return the description of the 
hand is printed under the appropriate hand: e.g., ‘““You have... 
V$....” In line 3040 the computer finally decides who wins and prints 
the necessary comment to the screen. 

Between lines 3050 and 3130 the score is adjusted and a check is made 
to see whether you have no more money or whether you have broken the 
bank. The control then passes to line 2180, where we start a new game. 

There is one other subroutine that I have not mentioned, the one on 
line 1940, This is merely a delay loop and helps to stall while information 
is On the screen. 

_ Beginning at line 3140 are a few comments that are necessary during 
the game. The instructions are contained from line 3310 onward. 


OB+e+ H.O.,METER MARCH Se +++ 
ia REM ities 


POAT 28,0; 05408: HT 21.8 
‘STAND BY PLEA 
$0 GUSUB 2c¥@ce 
SQ RAND 


- 


GO@ LET Oss" 

7A LET Rsint (ENGeSei ¢e+) 

SQ LET x<$=4831 B TO 34+RA6: To R-i 
i 

SO FOR psi To 1é 

1Q@Q0 LET RsINT (RNDS (LEN $e) 1 + 
e+) 

110 LET $20$4+=8 °F TO Rel 

t20 LET KSSKS ! TO R-Lli¢eStR+e FT 


eee FOR Losi TS Y STEP zé 

2e2@ IF COopE rgeibli <COopE Ke iLlee: 
THEN SOG@susp 27a 

240 NEXT iL 

250 IF &=@ THEN ¢GoTa 200 

<e6Q RETURN 

efQ@ LET ES=KRHSIL TO L4])} 

230 LET K$iL TS L+lisk$@itLe¢ee Ta 


290 LET KS$iL4+2 TC L421 =F 
200 LET R=2 
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218 RETURN 


232 FoR ces: To 
340 JF KRgptL: s°R" 


380 IF K$iLi="E" THEN LET KS iL: 
390 IF K$iL+i!="E" THEN LET Ki 


420 IF KS iL¢3:<2"F" THEN LET F$: 
iedi ss" 

410 NEXT L 

420 RETURN 

430 REM : 


A+S,B6: '§ 
4680 NEXT 6 
470 RETURN 


490 FOR As2a TO 26 STEF 6 

S@eQ@ PRINT AT B.A; K$f1)1;AT Bre.A 
41, K$(2:3:;AT Bed, Ate: KSc1: 

S510 LET K$ek $i TO 3 
Seva NExT # 

S30 RETURN 

S40 REM iaagSa-kerioi 
SSQ LET WsCOpe Kg 


WMALUES 


SEQ IF KSiliscks$isi AND KGLLI sks 
(Si AND RSi Pi sk$igot OR KSl1l!1 sks! 
31 AND BR$°68: sk sir) ANG KS$(S!) sk gt 
9): TREN GoTo ~S10 

S7Q IF KSili:sksisS)} AND KSELI aks 
(Si) AND BKGtti sn se(Ti DR KSB! skh gsi 
©) AND KSB SkSI(P) AND KS OCG! sk gt 
Q: THEN GOTO 88a 
SSQ IF K$idti=reiSi AND KSl1li sks 
(Si QR FS t a! sk getS) AND KSiSI sKEE 
YT! OR KSEE! sk et7i AND KS(Si sk Eto 
} THEN GoTa 8782 
SSQ IF Ks§iiisksit: AND KR$(S1 seks 
YT) UR RS lLt sR g'3! AND RSE PI sh St 
S: OR KRSt Si skgeiS) ANDO REL? skis 
i THEN SaoTa 8712 

BO IF be pe skgis: GR KSI SI sh gi 
Si OF KRS(St sk scP! OR RSP) skSlai 
THEN He MESO 

EF1lQ IF COoocE F$itli scCocCE Kgiaiel 
END CODE FS ia: =CcOCE KgiSt+¢+]1 AND 
CODE KFS 6S)i seUubeE KS ri¢]1 AND CODE 
RSF sCODE K$i3S)}41 THEN LET ise 
BO+TOCE Ks 


620 IF CODE K$i2) =CODE Kid) AN 
C CODE Ks$i4¢di =CObDE K$f6) AND CODE 
KS (6) sCODE K$'S) AND CODE K$(8:} 
=CODE K${1@: THEN LET Vse250+CODE 


B30 IF K$i2i=skgid} AND K$(d4) =K§ 
(6) AND KS$1(6! sKk$(8) AND K$L6) =KS 
(10; AND CODE K$(1) sCODE K$(3) 41 
AND CODE K$(3)3 =CODE K$(5) +1 AND 
CODE K$i5) scope K§(7)}4+1 AND COD 
E Kgi?i sCODE K$(9) +1 THEN LET Ve 
400+CODE K§ 

640 IF K$fe2i =k AND K§{fdic 


=K.$ (4) ES 
(6; AND K$t6: =Kksi8s AND KFS) sKE 
{163 AND CODE RSE=sCODE K$(SI4+1 AN 
C CODE K$iai=<CObDE K$(534+1 AND CO 
CE K$i5) =CODE KEi?}¢+¢1 AND CODE Kk 
$(7: sCcODE K$f9i41 AND CODE Ks§=42 
THEN LET VUsé4S8@+CODE K§ 
650 RETURN 
660 FOR L=l Ta 7 STEP 2 
670 IF K$tLisk$(L+e) THEN GOTa 


66Q NEXT L 

690 LET VsSO+CODE K$(L) 

780 RETURN 

71909 FOR L=1l TO 3 STEP 2 

feO IF KILI SKS(L+2) THEN GOTO 


EXT L 
7406 LET VUsl8@e+CODE KS$(L} 
LIRN 


76@ FOR L=l Tu & STEP 2 
77O IF KSt(Li sksS(L+2) THEN GOTO 


760 NEXT L 

730 LET WU=selSe@+cC0OCE KS(L} 

S00 RETURN 

SiQ@ FOR L=il Ta § STEP 4 

Sed IF KStlLiskgilL¢e) AND KG(LI = 
KSiL¢4i THEN GcuTa 9840 

S30 NEXT L 
340 LET V=sessea+rcCODE Kg (L} 
S50 RETURN 


S60 FUR L=l To 3S STEP 2 

S7YO IF KS$(Lisk$(lL¢2)} THEN LET WV 
=SSO+CODE KIL: 

S8Q NEXT L 


Fao BO te 


930 IF U>zee THEN RETURN 
240 IF U:i®e THEN GOTO 1198 
S5@ IF U:S0 THEN GOTO 1338 


360 IF Kg§teisk$id4i) AND K$l2) sKE 
(6) AND KS$leisek$(8) OR KSl2) KE! 
4: AND R$ 21 sh$'6) AND K$t(e) sks! 
14: OR KS$te: sk $td4) AND KS§f2) =KS§ i 
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Gi AND RS$lteti =k $i(1le! GR KFidi sh gE! 
ae ND Fet4a3 sk $B) AND KS(4t ok Zt 
1Q@: THEN GoTo 1428 
S7°7O IP Kg§te: =kslds AND KSlS) sh gs 
(EB?! QR BRS$te! sk gsidi AND KSl2) sks: 
si DR K$tes skgiadi AND KFElCSI sk gti 
Oi OR KStea: sk gle AND KSFles eksis 
1 OR KSt|ei sksids¢i AND KRS$l]21 skKSl(19 
i OR RSlei sk site: ANG KS$laei sk etl 
i QR FSi4i sek gib: AND hid! sKEIS} 
TR RS tdi sKRECS! AND RSl4) KELL! 
CR KSLSEi sk gels: AND KS(63 sh StL) 
CR RSE! sk eld: AND RSE! sKgl( 1a; 
THEN GOTO ieee 
SEQ IF Cope F$:i21) sCOobE Kgisiel 
AND CODE K$'t2: =(ODE K$iS:4+1 OR C 
MOE Kst3S) sCobpE &€$1Si41 AND COBE 
K$°'S3: scope Fs: 7:41 OR CODE K$i8: 
=COPpE kK §iFi4+42 RAND CODE KS$i?) =<cOop 
E KS$(9:4+1 THEN sOTO 11186 
3290 LET fF $iz TO 1208 Ta & 
18000 LET T=4 
10810 RETURN 
Wee IF Ks§tie: sksgtdi AND KRElSI sR 
(6) GOR KRS$le: se gidt AND KSlea1 sk gl 
Si QR KSlei sksiei AND KStei sksgilL 
QO: OF KSlS skh $ie! AND KSte) sk gil 
O: OR K$leo: sk sisi AND KSlLSI ek *Fce 
a RéSle: se $:ia!: THEN LET Sek $s 
po | 
1030 IF Fsia: sR $6: AND KSi4I sKE 
(8S) OR KS$l4: sR Sib) AND KRSlt4i sks! 
10: GR FKsiadt =hSlSi ANO KSi4i sk gt 
10: THEN LET S8$=K$ (4! 
1940 IF F$i's8:skg(S! AND KSI! sKhs 
(10; OR KGB! =KkKSlS! RAND K$I(G! sks 
(10) THEN LET GS=K$ (8) 
1050 FOR Lee To 160 STEP ez 
1866Q IF K$§ii:<:+c$ THEN LET F$IL- 
1 TQ Li setsi TO ei 
1970 LET Ugs$stg$is To } 
19080 NEXT iL 
1030 LET Tse 
1100 RETURN 
Oo IF CODE ®$:1) sCODE Kg§isi¢+1 
AND CODE FKs$iz: sCODE K$'Si¢+1 ANC 
CODE *$(5: =CaDE Kg$(714+1 OR CODE 
K$ (3) =CODE kR$iS:¢+1 AND CODE K$ct5 
1 sCODE KS$t(7:+1 AND CODE Kg?) sto 
DE K$(Si¢+]1 THEN GOTO 185890 
1iev@ IF CODE K$i1) =CODE K$i3)}41 
THEN LET O8$t(? TO 10) 2sC8$( TO 4} 
11i3@ IF CODE K$'3)} =CODE K$'(5S) 41 
AND CODE K$:5: =<cOpE K$(7!}4+1 TREN 
LET O€(3 TO 10: <C$(3 TO 4) 
1140 IF CODE k$:3) s=CODE K$ (5) 42 
AND COGCE Ki: scODE K§(7}41 THEN 
LET Of TO e2:seg( TO 23 
1156 IF CODE K$i?) sCODE K$iS) +1 
THEN LET O8$: Ta dj sCgt( TO 4 


1260 LET Tf=e 


Live LET Ks$=s0s 
11i8Q@ RETURN 


1198 IF U:158@ THEN GOTO 1260 
1200 IF K$ili=sks$lSi AND K$(S) =K§$ 
(7) THEN LET Ogio TO J) stg TO 2} 
1218 IF KS iL) 2ke (3) AND Kt?) sks 
19) THEN LET O8$:S TO 6) =sCs$l TO 2 
H 

le2e@Q IF K$t(S: =Kk$65) AND KS§(7) =KSH 
(3S) THEN LET Os: TO 2) sCgt( TO 2} 
1230 LET Ts: 

1240 LET K$=0% 

1250 RETURN 

12@6OQ IF KS$t2i sksis! AND K§(L) sKS 
(S)} THEN LET Os¢? TO 3 2#C$t TO 43 
1270 IF KS$tsiskgiS) AND KF(S} SKE 
(Pi TREN LET O8: TO 2) 2+C$( TO 2:3 
Le2SQ IF K$isdisks$iS) AND K$(3) =KSE 
(?P) THEN LET O8:9 TO j)2s0g(3 TO 4 
! 

12902 IF K#iS:=sk$(7) AND K$(5) =KS 
(SQ) THEN LET O88: TO 43) 2sC§'t TO 4} 
1200 LET Ts=e 

1310 LET KS$=Us 

1320 RETURN 

1330 IF KS$(i:!: sk$t(S) THEN LET O§f 
S TO :2stsi Toa &: 

1340 IF Kk ¢tBiskstS) TREN LET Uogt 
TO e2@i:s0gei Te 2:3 

L25Q IF K$isi sk giS) THEN LET og! 
7, TO 20: 2e2t$is Ta 6 

13608 IF KgiSi =Kgslr) THEN LET O§t 
TO 413208: To 43 

LG7OQ IF K$tSi sk gl?) THEN LET O8§t 
3 TO :2s0g:& Ta &3 

1380 IF K$i 7: sk$ (91 THEN LET O§:! 
TO &isegt To et 

L29@ LET Tes 

1480 LET Ks$=0§ 

1410 RETURN 

1420 IF K$iei=shg$l(d4i OR KS$l2) =KS$l 
©) THEN LET niet yd 

1438 IF Keiei <+Re(4) AND KS(4) SK 
$'6: THEN LET Us]kK 6 (43 

1440 FOR Lee To 16 STEP 2 

14820 IF Kil: «<+>US THEN LET K§IL- 
1 TO L3 st§! To a) 

1460 LET (C$2ts$isa TO ) 

14°70 NEXT L 

1480 LET Te=i 

1499 RETURN 

i800 IF CODE K$i1! sCODE K$(3} +1 
AND CODE Kg $§itsa: =<cCODE KgsiSi4+1 AND 
CODE KSIS) scUDE Kgi?!141 THEN LET 
og(9 TO :2sCsi TA 23 

1S3i0 IF CODE K$i'3)} =<CODE K$(S) 41 

ANNO CODE K€$tS: <COBE Kg§tiFi4+1 AND 
CODE KS$t?7)} =COBE Kg(St41 THEN LET 
Ose Ta f2ietsit TAQ 2} 

1520 LET kK $=0$8 

1538 LET Tel 
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15498 RETURN 
1850 REM : 
15860 LET ¢ ae 

S70 IF MU:28@e8 THEN LET C=emMU-Se 
1580 IF MU:c@a THEN GOTO 1688 
1530 LET xsRND 

16@0 IF x:.38 THEN LET Cs8 

1610 IF cst THEN GoTs 1686 

Sl TF x;,.458 GR BTG<3S THEN LET 


Cs 


i630 IF tse THEN GOTGa 1689 
16490 LET yvyevr4+BTs 
1650 LET 
166O Gos 
16°70 GOTa a1! 
16890 FOR Ls x 
1690 PRINT AT is, 
SEE Gu AND RAT 
1°80 PRINT AT ei 
NTER YOUR BET" 
1710 GUSUB 2828 
1V¥2@ INPUT TI 
1P208 IF vysteseEBbTs oR TsO GOR IsBTSG 
OR TPs2sBTe THEN GOTG 1762 
1740 PRINT AT 22,80; "SEE OR RAISE 


a ae 


ME 

1PS50 GaeTo ive 

17608 LET iJLaitiLe¢T 

iY°7O LET yeredl 

1f7eoe IF vy<:BTS THEN GOTo 1380 


1°2a IF =@ THEN GOT 31598 

150a IF r- FT is ge GOTO 15889 
1810 PRINT AT 132,.80;08$;AT 153.8: 
WOU SEE ME AND parse ME...” 
eW SOUSUB Is4e 

230 IF Mici@e AND L:+3 AND RNB: 
THEN GOTO 2178 

40 WESxT L 


0 7 


Cd oe ood 


MOO WO HO Co iy iy Ui 


15,0;08;AT 19,0; "I 
You ene st 


2 PRINT ‘ar 12.0;0$;AT 19,0; "5 


bb RS 


a LET Us=t"h HIGH ERD" AND J 

P40 °R PRIR' AND J?50 AND J<9o 
“THOS PRIRS AND J>108 AND Jil 

(THREES AND J:149 AND Jee 
tR STRAIGHT” RANO J+199 AND J 
4/6 °R PLUSH’ AND J>349 RAND J 
+i “A FULL HOUSE" AND J>299 
2 


“ EPC 


D-: 


ie35014¢°FOQUR OF A KIND" AND 
3 BND e480) 40°90 STRAIGHT F 
HU U6 ANG 6 6LI> BOS AND J<450)4+(°A R 
tL FLUSH’ AND J+449) 

2Q LET PP=axtee-LEN Vs) re 

193a RETURN 


a 


1950 FOR Pel To DO 


OM NEXT F 

OW RETURN 

SQ GOSUB ade 

OQ FRINT at 1a, ;QGS$, AT is, B,°Y 
MILL RAVE To SEE ME. see’ 

@ GOSUB 1942 

OW RETURN 

OM PRINT AT 23.185; "YOU ARVE §" 


2020 RETURN 
7 aR PROGREAL 


2050 LET Ag="2C2C4CSCEC7CSCICACE 
PFECOCECe2DSBb4CSC6D708SDSDARDBOCDDDE 
D2EESE¢ESESE 7ESESEREBECEDEEE2FSF4 
FSFOF 7FSFOFAFBFCFDFEF" 

2060 LET $s" 7 


2070 DIM M$iz2,18) 
egsad DIM ¥$iz2,1a1 
2090 LET Br= "4 
21909@ LET y=25e 
oan a AY 


1h b> po bo 
UO as ay 


MES Won 


Pangani 
= GGG 


“Orem TIMEX -SINCLA 


om ee ON = } 
213 PRINT = 20, Q:° ‘DO YOU REQUT 
RE DETAILS Vty oR Nj)" 
2140 IF INKEYS$<:"" THEN GOTO 2l1¢ 


"4 

215@ IF INKEY$="" THEN GOTO 2158 
2160 LET S$=INKEYS 

217@ IF S$="Y" THEN GOSUEB ssee 
2180 tite VBAis 


2200 FOR L=i TG 9 STEP 2 
e2l@ LET M§$tl,L TO LeLlistgsi TO é 


2220 LET Y$ti,L TO L+l)sC$i3 To 


2230 LET C$=Cs$i5 TO | 


2370 GOSUB Wea’ 
: ot rire an CH CARES 7 
2390 PRINT aT 12 OQS+OS,/AT 19. 
"SWAP WHICH DARD? (IE. PRESS 
FOR NO, 2 ETO. ANCOR FP TO FR 
_ 


e400 FOR L=i Ta 4 
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“Silas IF INKEYS$<:"" THEN GOTO e241] 


e420 IF INKEY$="" THEN GOTO 2420 
e430 LET TS=INKEY$ 

2440 IF Ts="F" THEN GOTG 2518 
2450 IF Ts.'°1" wR TEe:"S" THEN Gu 
TO 2412 

2460 PRINT AT Y.VAL TS$#6-5; "Ss 
2478 LET TSURL TSeee—-l 

2480 LET “S$iti.T TO Teli ssi TO 


2499 LET C$=C$(3 TO | 
2500 NEXT L 
PRINT AT 19.0; 08+08+08;AT 2 


ao50 Ler heya ti) 
2530 GOSUB asea” 


LET vsti 

2550 Gosus Wseo 

2560 LET Yhte et 5 

2570 LET &=1 

2580 GCoOsuUB 8452 

2590 PRINT AT 7.0: 08 

2600 PRINT AT 23,0;08,AT 21,0; °E 
EY TILL Nol $5° 

26190 GOSUB 2822 

2620 LET KSa¥S$t2) 

2630 GOSUB 8542 

2640 LET Ue? 

2650 LET FKS$=MN8$17) 

2660 SOSUB 82548 

26070 GOSUEB Wsee 

258Q PRINT AT 13,80; 08405; AT 13.28 
); "DERSLER TRRKES °“;T:" CRRBD 4c 'S" 
AND T.:1: 

26930 LET Mil: =k § 

2780 GOSUB ae ee 


Ne 


2750 GOSUB a45¢ 
2760 LET K$=Ng$il) 
2770 GOSUB ase 


2800 PRINT AT 221,.0:;08; ART 21.08; °F 
OUR BET 7" 

23128 GOSUB 2ace 

2820 INPUT ETS 

2830 LET BTG=sINT BTG 

2340 IF BTG=8 THEN GOoTa 3158 
235@ IF BTG:y GE BTG:25 THEN FRI 
NT AT 21,098; 018 

2See@ PRINT AT 22,6; ("YOU ba NOT 
HAVE THAT MUCH. 2." SND BTirybef” 
LIMIT I5 $25" ANC EBTG:e25) 

2870 IF BTG:, GR BTG>+25 THEN eos 
UB 2920 

288O IF &B7TG:yY GR BTG:25 THEN Gat 
Oo £820 


Poker 


2330 if ETGsy GR +-BTG<BTG THEN 


5500 LET ¥=¥-BTS 
2910 LET WLSETG+5 
2929 GOSUB 1552 _ 


2950 GOSUB 8438 

29690 LET Jes¥t 

2970 SOSUB isdae 

29850 PRINT AT 13,0;,;084+0E; AT &,FFP 
» OU HAVE ": Us 

2990 LET J=MY 

3880 GCUOSUB i1s8¢e 

S@10 PRINT AT 12s,.PP;° I HAVE Oot 
5; 


38020 GOSUB i194¢e 
3830 REM : 
3040 PRINT AT cl, Q; OS: AT 21.0. 0" 
DK..e, YOU WIN’ AND YUOMUT + 0° TOU 
GH LUCK, I WIN’ AND MU yu 4 f° IT 
Is A a RAND MUsYU) 

MOSS MONEY 


38960 IF YU>oMU THEN LET Yoyv¢lJLe#e 
SQ70 IF “U=sMU THEN LET Yey¢lL 
3080 GOCSUB 220222 

30090 GCOSUB 1e4e 

3100 GCGOSUB 19428 

3110 IF ¥Y:>2080 THEN GOTO 3228 
3o1l20 IF Y<8& THEN GOTO Sera 

3130 GOTO 2168 

3140 REM inrceeeese iM 

3180 PRINT aT ia ,@; Os+08; AT 19,8 
"50 YOUR CHICKEN. .... 

160 GOTaG 3988 

170 LET WhLeW_-t 

180 LET yr-yYel 

190 PRINT AT 13,80; OS+0$; AT 13,8 
ae 8 BM Sl ecugekaeceau” 

QO@ LET Yoy¢+ilLese 

S210 GoTo s080 

Ssee0 GCGOSUB i348 

wes GOSUB 1L3a4de 

3240 CLS 

2eSO PRINT AT 24,6; "WELL THAT BE 
ATS ME. I AM GCING HOME. BYE-BY 
E FOR NOW," 

3260 STOP 

we/?8 CLS 

2260 PRINT AT 12,0; "IT RARPPEARRS ¥ 
OU HRVUE NO MORE CASHTHANKS AND E& 
YE-BYE." 

se23ge8 STOP 

23080 CLS 

2310 PRINT AT 1-2: "THIS I5 A GAM 
EF OF CDRA POKER PLAYED BY Yau A 
GRINST TRE TIMEX -SINCLAIF. 


S320 PRINT AT &S.2; ‘YOU WILL BE OD 
FRLYT WITH FIVE CARDS. ANC THEN 
BE ASKED GHICH ONES YoU WISH T 
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Card Games 


O DISCARD. YOU MAY DISCARD A M 


AXIMUM OF 4 CARDS 
2330 PRINT AT 18,2; "ON EACH DERL 
YOUR TOTAL WiILi AUTOMATICALLY 


BE DEBITED WITH $5. THIS I5 Yo 


UR STARTING STAKE.“ 
334@ PRINT AT 14,2; “THE MAXIMUM 
INITIAL BET IS $25. THEREAFTE 
R_YOU MUST ALL-_ WAYS DOUBLE OR 
SEE. TO THROW IN YOUR CARDS ENT 


FR A YW, 
$358 PRINT AT 28,2, ""GOOD LUCK... 


3355 PAUSE 22a 
336@ RETURN 


4 


HAVE A PAIR 


OCR... : YOU WIN YOU HAVE $298 


Flip 


Flip is an intriguing game that provides quite a bit of mental stimulation. 


You'll see a random mix of asterisks and solid squares on a three-by-three 
grid when you start the game. You have to try and end up with eight 
asterisks surrounding a black square in the middle of the grid. You can 
only “‘flip’’ (a term to be described shortly) an asterisk. You move by 
entering the number of the piece you wish to flip. Flipping a corner piece 
causes those adjoining it to change to their opposites (that is, an asterisk 
becomes a solid square, and vice versa). Flipping a middle piece on one 
side changes the two either side of it, and flipping the middle one changes 
the middle piece on all four sides. The piece you flip also changes. 

The number of moves you have taken so far is displayed. The 
program will pause at the end of a game to tell you how many moves it 
took you to solve it, and then you'll be given a new starting position. 


MQUE NUMBER 1a 


MAICH SNE Ta COAANGCE*? 


i ¢ 3: 8 & + 
4 & § + + § 
7 & 8 #8 & + 


< »  talf P| <= 
‘Till NEED ONLY ONE, Is THE 
MIDDLE SQUARE 15) 


13] 


132 


YOU 


Brain Games 


SOLVED 


2} IN 11 MOVES 


MOVE NUMBER 12 


NUMBER oF §§ Is 
MIDDLE SWURRE 


- F 


~J 


A) ee LA 
te 


a0 


l 
NE , 


(SJ 


ONLY IN THE 


- Fy 


_ TSHR CB bo 
aa 
WAG = 
IPA EM 


: 9g 

! aid 5! 
THEN LET AIC! sx 

NEXT 

SOUSUB Lee 


uD sxe TD 


ac eee] | | | ne 


a 


NEXT ¢ 

PRINT AT 15.06; "NUMBER OF & 
NEED ONLY ONE. I 

‘DLE SQUARE (51" 
R(Sj sx THEN GOTO 


"IAT ys.25>;N 


AS 
MIL 
AINE 


LET MaM+l 
PRINT AT 1.9; 


PRINT a  " 
+ £3 


LET o§= =INKEY $ 
PRINT au 72 


"MOVE NUMBER 
“WHICH ONE To 
THEN GOTO 1z2¢@ 


fs 


ee | 


Flip 


i CRRS$ (ACB) 

2OQQ PRINT AT 18,3; "4 § " 
CARS (Aldi: ,” “ST CHRS (A6S335" 
',; CHES (FAtBs: 

2108 PRINT AT 12.3: "7 & me 
CARS (REP P. "> CHR (ACB 
“CHR (Atsi) 

2eaQ@ RETURN 

278 RPRINT | 

27S PRINT AT 8,90, °YOU SOLVED IT 

IN ":M:" [ VES" 

280 FOR T=1 Te 568 

230 NEXT T 

=6O690 OLS 

SOS RLN 

310 IF Ain: =x THEN RETURN 

S20 IF N=l THEN LET Fili se 

Sel IF N=al THEN LET Ft2ie 

see IF Nel THEN LET F(3} =5 

sea IP Nsil THEN LET Fit4d:i 219 

S3OQ IF Nese THEN LET Ftiljeil 

S31 IF Nee THEN LET Ff2i123 

sage IF Nee THEN LET Fits!) =19 

S33 IF Nee THEN LET F (4! 219 

340 IF N=2 THEN LET F(1) 22 

S41 IF N== THEN LET Fi2iss 

342 IF Nes THEN LET F(3) =6 

243 IF Nea THEN LET Fid4) 216 

=S0 IF N=4 THEN LET F(lj) <1 

S51 IF Ned THEN LET Ft2eai=+? 

S52 IF N=d THEN LET F (31210 

253 IF N=s4 THEN LET Fi4;3 210 

S60 IPF N= THEN LET F(1! 22 

S62 IF N=5S THEN LET Filia! =4 

s6e2e IF Ns THEN LET F(t(3) 28 

S63 IF NsS THEN LET F (4) =6 

270 IF S26 THEN LET Fi(1:1 23 

srl IF Nse THEN LET F(2) <3 

sre IF N=s=68 THEN LET F (312192 

SYS IF Nese THEN LET Fid) =10. 

338Q IF N=? THEN LET F(1) 2 

SO1l IF N=? THEN LET Fl2iec 

332 IF Nev THEN LET Fi(Sic 

283 IF N=’ THEN LET F(4) =1@ 

=30 IF Ns8 THEN LET F(l)=7 

391 IF Ns& THEN LET Ft21 28 

3Qe IF Ns THEN LET F(3)} 218 

393 IF N= THEN LET F(4) 210 

400 IF N=o THEN LET Fi(l1is8 

4091 IF N=& THEN LET F(2) 25 

4@2¢ IF N= THEN LET F(3) =68 

403 IF N=o THEN LET F(4) 219 

4@7 FOR Gel TO 4 

408 LET F= 

410 IF AIF tts:3=2sxX THEN LET Feil 

420 IF Set THEN LET ALF iG) ) =@ 

425 IF F=s=@ AND ALF (G13)20 TREN L 
ET AtF igi: =x 

430 NEXT G 

4490 LET ACN) =x 


450 RETURN 
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Codes 


Gwyn Dewey's program is a game in which numbers and letters are 
jumbled up, and you have to try to guess them in sequence. When the 
prompt appears, you indicate your guess of one of the hidden numbers by 
entering the number above the chosen grey square. There is a time limit, 
so do not linger too long in making your decision. 


1 PRINT THE 14; 'efajejeks'' 
2 PRINT TAB 7; "(THE FINAL VER 


3 PRINT TAB 2: "CODES IS A GAM 
“4 PRINT TAB i: "NUMBERS AND LE 
PRINT TRE J: "UP AND THEN HA 
PRINT TAB 3; "IN SEQUENCE. & 


? PRINT TAB ce: 'APPERRS YOU RAR 
E TO GUESS ONE" 

& PRINT TAB 4: ''OF THE HICDEN 
NEUIMBERS By” 

9 PRINT THRE e; “ENTERING TRE W 
UMBER RBOQWUE THE’ 

10 PRINT TRE 2: "CHOSEN GREY 3 
WiRRE,. 60 NT TREE" | 

il. PRINT TRE 2: "TOO LONG OR TH 

12° PRINT Tae 2:"YOU (GULF!. I 
HAVE WARNED you.” 

13 PRINT TRB =: "ENTER LEVEL (i 
ERSY-15 HARROD: 

14 INPUT T 

15 IF tii GR £:16 THEN GOoTa ld 

16 PRINT THE 2di:lh 


Ll? PRINT i: RAB 22: GOOD LUCK 
18 FOR yei To 15@ 
iS NEXT +. 
2u CLs 
2ilcLlET NS="" 
eae LET A=" 
e3 LET B6$="" 
25 FOR xsl Ta Le 
2S LET NS=ENS+” 
293 LET SHAS ACHRS (eee! 
2@ LET BSsEs+" 
134 35 NEXT x 


ft 


BOUOOL OU DE OU es OU EO UO OU DU oe a oe on ee BT el Ted ed - [--* b= Fb 0 b= 


Codes 135 


48 RANG 
Roi TS LEN Ag 
608 LET BeINt ‘RNDSLEN AGI +2 
tees =Ag (53 
HS: TO B-1! 4khS(B41 T 


SQ@ NEXT FR 

i1@0 LET C$8stCReRS$ 23 
1Q@1 PRINT AT 124,8:; 
1@e2 FOR xsi TE L 


ar? PRINT “SHRS 
1@8 NEXT x 
1108 INPUT Ds 


2e@Q IF €oOCE D$<23 OF CODE 6S$;:L+ 

HEN SOTO lie 

LET tsttDbe pbg-28 

LET NS it: <BS 60) 

IF &4$:0: =03 THEN GOTO 280 
PRINT AT 38, (Ose! -2;68 81°03 
FOR Toi Ta So 

JE xT FT | 
PRINT AT 10, (S42) -2: Se" 


isuTcd 4282 
PRINT AT 3e@.iCse!-2;CHRE 1! 


~ $i ¢i25: 
LET S$sCHeRs$ ((COoGE 6) +11 
IF o$sCHFs (Lees; THEN GOoTS 
isto Lig 
FRST 
POR Tesi Tu 
LF NSitiees HEN SGOTa S5e¢ 
NEXT 
FOR Tesi TO L 
ee THEN GOTS 465 
LET WRit: ssi Ti 

' =i$ THEN GOTO 558 


Me SWS CO WOO LIN GeO TO Lae LGN OG Lane 
YORGMIIGHOMNVGEiHg#aQyegagneaqggg ggg GggGaheaWea cog ag ue 1 
<_ 
m 
“ye 
“4 


Pei 4122: 

LET S$2cCHRs ((Coce Cgi +1: 
IF C$stees ‘Lees! THEN GoTa 
FOR Jsi To 5&8 

NExT 2 

SOTas 4282 

ris 

PRINT AT LO.L1L: (CURSES. ...7 
BeINT ET Ze.1la: “yOu WIN" 
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Brain Games 


20.1: "PRESS ANY KE 


°" THEN GOTO 642 


i@.jde2: HA HA...” 
le .id; “fe WIN’ 


2114 Bug 


Can you discover the byte in your 2114 chip that has a bug in it before it 
can get into your program? Can you succeed where others (me!) have 
failed? Here is a game by Chris Callender to see if you can. A brand-new 
2114, made in Japan, will appear on the screen, along with instructions 
when you press RUN. 

Pressing any key causes your scanner to appear as a white dot on the 
2114. Move it around using “5,” “6,” ‘*7,” and “8” (and moving in the 
direction of the arrows on those keys); as you do so, the signal on your 


slightly inaccurate bug-detector will change. If you manage to find the - 


bug, you'll get the message JUST IN TIME flashing on the screen. I'll 
leave it to you to find out what happens if you fail. If—after a few 


games—you wish to make it harder, change the 83 in line 295 into a 


smaller number. 


12 FOR Asi TO 9 


f3! THEN PLOT 
(R/S! THEN PLOT 
(e753 THEN PLOT 
[fR-S! THEN PLOT 


. re are: t 

Tie PRINT AT ce O° IN THIS VERY 
2elidt LIVES A &: Weg 

lee PRINT “(Naor A VERY NICE ONE 
SLIHER és! 

130 PRINT “Can VOU THE HERG FIN 
D IT BEFORE" 

140 PRINT “IT SETS INTO YQuR PE 
OGRAM AND" 

iS@ PRINT “CAUSES A COMPLETE S¥ 


162 PRINT ° {COMPLETE SYSTEM CRA 


i? PRINT “NASTY STUFF...e!. YOU 
TAN MOVE" 
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138 Brain Games 


180 PRINT “Your SCANNER AROUND 
TRE MENORY " 

190 PRINT “"I.t. IF YOU GET GNTO 
THE SAME" 

220 PRINT BS ‘TE AS THE BUG You 
GET IT. GOOD © 

210 PRINT "Lillk. HIT ANY KEY." 
ee PRHUSE 454 

230 FOR AHs=il Ta 21 

2480 PRINT AT #A,8;5" 


250 NEXT 

255 RAND 

26@ LET Bx=INT (RND#63} 

270 LET Bys4i-INT (RND#18) 
x= 


G 19862 
seQ@ PRINT AT dé. OM: "SCANNER COGR 
CINATES °': Fx py 
338 LET 5210004 INT IRNO#21-(ABS 
(PX-BxX! +ABS (Py -BY)) 
342 PRINT ae i3.0: “BUG DETECTOR 


(11-1000) =": 

35@ PRINT ° (‘THIS DETECTOR NEED 
> FIXING" 

SS3 PRINT ° eeeell IS INACCU 
RATE) * | 


36@ PAUSE 4&4 
372 LET AS$=INKEY$ 

SBQ PLOT Px ,Py 

390 PRINT AT Sadi” 
"200, TF AS="E7 AND PX>Q THEN LET 
410 IF AS="5" AND PY>23 THEN LE 
420 IF Ag="7" AND PY<42 THEN LE 
430 IF Ag="8" AND Px<63 THEN LE 


45@ CLS 

4698 PRINT AT 13.10; "TOGO LATE" 
470 PAUSE 12a 

489 FOR A=l TS 180 

4930 RAND USF = 

SOQ NEXT #& 

SiQ sToPr 

1@@@ CLs 

10108 PRINT AT 13,10; "JUST IN TIM 


in} 
E 
12020 PAUSE 5 
a Meets? IN TIM 
= 


10328 PRINT | 


it 
1849 PHUSE 
1050 GoTo 112 


Anagrams 


Anagrams by Ken Mahogany shows the flexibility of your computer’s 
string handling. The Anagram program asks you to enter a word (such as 
your first name). The computer then will produce every conceivable 
combination of the letters in your name. The sample run before the 
Anagrams program listing shows some anagrams of the programmer’s 


| Name. 


UGHMBY AN 
YRAOQONHGM 
OHMARYNG 
RAHANGCONY 
NAGHOY MH 
BANMYOGH 
NAHM Y GRO 
NAGOYHAM 
RUNYAGHM 
AY HAMONG 
NOMARBRHYS 
ORNAGAMY 
HAY NOMGR 
YMNOGARARG 


 NAAROMAYG 


NAMYORGR 
YOGRNAMA 
ANRMNOYAG 
ROHNMY GA 
MAGHYAON 
AGYNOHAM 
NAGY AOQHM 


PEM ANAGRAMS 
REM (Ci K MAHOGANY Llase 
“ENTER YOUR WORD" 


[RA DSN? +7 
INT {RND#N) +1 
) THEN GOTO &e 


FOR oak To WN 
NEXT & 


L4] 


Spectral Hangman 


This is a fairly straightforward game in which the computer chooses a 
word from its vocabulary, and then gives you a limited number of guesses 
(based on the length of the word) to get it right. The vocabulary can easily 
be changed or extended. 


Spectral Hangman was written by Ken Mahogany. 


232 
242 
262 
265 
272 
275 
277 
262 
322 
312 
315 

320 
325 
332 
335 


REM SPECTRAL HANGMAN 
REM (Cik MAHOGANY 1982 


SCROLL 
PRINT “ENTER 


INPUT Oo 
LET F2etSibe 
FOR Gel 7 
IF DPiG:=sF THEN LET O(6)1 = 
NEXT G 

NEXT J 

SGUSUB 412 

SCROLL 
PRINT 
SCROLL 
SOTA 238 
SCROLL 
PRINT TRE 
SCROLL 
PRINT "YOU 
1;'"' GUESSES" 
SCROLL 
PRINT "THE 
SCROLL 


YOUR GUESS No. 


“SORRY, TIME Is UP" 
S; "WELL DONE" 
GOT THE WORD IN 


WORD WAS "AS 


wo? SCROLL 


342 
NEW 


142 S45 


PRINT ANY KEY FOR A 


“PRESS 
GAME" 
PAUSE 424 


"432 


RZ BIE 


435 
a. 


440 
43 
435 
460 


Spectral Hangman 


IF Biei=Cif} THEN PRINT “-" 
IF Bift<:G1E) THEN PRINT CH 
IF Bie: <>DtE) THEN LET H=H+ 


NEXT £ 

IF H=eN THEN GOTO 36a 

SCROLL 

PRINT evel ARE GUESSED °: A 


IF H<31 THEN PRINT "3" 
SCROLL 
RETURN 


LET RoInt 


‘RNDseS54¢1: +10+15a 
SCSUB K 
RETURN 
LET AS="FEARTURE’ 
=_— 


LET Ags SPECTRUM: 
RPETUR 

LET AS='"CRMBRIDGE" 
RET URE 

LET AS$=' HAZARD" 


RETURN 

“BUMPRK IN" 
LET Ag="QUESTION" 
LET Aga °auiTZ" 
LET AgS="UNCLE" 
LET Ag= "RECORDER: 


LET Ag="FRIENDLY" 
RETURN 

LET AS$="RESOURCE” 
RETURN 

LET Ag="BETTER” 


LET AgS="BUTTER" 
LET AS=" STRAWBERRY * 
LET AS="HIZARD' 


RETURN 
LET As ="BOTHERSOME 1: 
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Word and Letter Games 


RETURN 
LET AS=s 'SURCERER' 
RETURN 

LET AS="URTOM" 
RETURN , 
LET ASRS CULITOREGLY" 
RETURN 

LET AS="ENUY" 
RETURN 

LET ASs"RRNTON" 
RETURN 

LET AS" UIANDERER" 
RETURN 


Wallpaper 


This program, written by Mark Charlton, takes your name or any string 
up to 16 letters long (with spaces and/or graphics) you care to enter, and 
produces a continuously unfolding, and evolving, “‘wallpaper’’ pattern, 
as the sample run shows. 


1Q REM NAME WALLPAPER 

28 REM j(C:imeyarerk CHARLTON 1982 
eS =CR0LL 

SQ PRINT “ENTER YOUR NAME" 
35 SCROLL 

4€@ INPUT as 

45 LET AS=AS+ i. 


{> 
a 
-+4 
“Tl 
cr 
Mm 
Pid 
aa 
+ 
- 
Te 
~ 
ae 
mM 

ard 
GS 
ae | 
- 
a 
$2. 
en 


EG TF RANG:s.8 AND CODE AS$(G: <1] 
et THEN LET AS (S) cCHR$ (CODE Agi 
Si¢]le8! | 

TM! IF RND:=,5 AND CODE AS$tGi:l 
eae TREN LET @8st&Si =<CHR (CODE AS! 
isi-l2e3: 

SQ NEXT & 

Tea FOR H=i Ta 16 

130 FRR Ss=2=-15 Ta 16 

145 IF #H=8 THEN GOTO 1628 
L180 FRINT AS$tABs #1 ; 

168 NEXT & 
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146 Word and Letter Games 


CHAR ON 


NOgBER HC 
Pj Zz RAL 
NL 
te 
NiO 
S| La: 
Na 
Uae 


Ps 
i 

lew 
am 
T 
= 
ay 


bh T3 
i wea 
‘on 1 4 
ae 
i 
Le 
mI 
iS 


ee | 
pan 0 ber 4 


=<. TT) 2S be 


? eq Oi : 


“yi 


Wallpaper 
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This program turns your Timex/Sinclair 1000/1500 into a Walt Whitman 
—almost. Choosing words at random from the lines from 100 on, and 
spacing them out at random using lines 20 to 30, the program manages to 


Poetry 


join phrases together surprisingly well. 


The program checks (line 53) to ensure that the same word is not used 
twice in a row, and it continues to add words to a line (lines 60 and 80) 
until the line would overflow. At this point, it prints the line to the screen 


and starts constructing another one. 


Once you've run this a few times, change the words from lines 100 to 
215, adding words and phrases of your own choice. You'll find the 
‘‘poems”’ are more satisfactory if the words used are related to a central 


topic. 


REM POETRY 
SCRGLL 
IF RND:.? THEN GOTO 4@ 
FOR J=1 TO RNDss3 
SCROLL 
NEXT J 
LET ae="' i 
GOSUB i8@44i10sINT (RNOs1e2) 
LET *sLEN As 
LET YsLEN BS 
IF Ag (Nod) Be (Y- 1} THEN GOT 
IF x¢¥:=s3e THEN SOTO 38 
LET As= iadbiae 
GOTO 589 
PRINT AS 
RUN | 
LET &S¢="CETACHED " 
RETURN 
LET B$="INITIATE 
RETURN 
LET BS="ERRLY " 
RETURN 
LET 8$="RALTHOUGH 
RETURN 
LET BS="..2" 
RETURN 
LET B$="DISCIPLE 
RETURN 
ET 8$="WEEPING 
PETURN 
LET BS="“ONLY ‘ 
RETURN 


Poetry 149 


LET S$="REACHED OUT FOR * 


RETURN 

LET 8$="“LONELY 
RPETUAN 

LET 8¢="EARRNS FOR 
RETURN 


LET 63>" THEN 
RETURN 


150 


Tile Crazy 


Ken Mahogany’s program Tile Crazy puts you in command of a four-by- 
four grid, which holds the letters of the alphabet. You have to arrange 
them in alphabetical order, as follows: 


A B CD 
E F G H 
I J K L 
M N O 


There must be a space in the bottom right-hand corner. You move by 
entering first the number (there is a code beside the printout) of the letter 
you wish to move, then the number of the square into which you wish to 
move it. You will not be allowed to cheat. The program counts how many 
moves you've made. You should be able to do it in 40 or so moves. If you 
wish to change the order of the letters at the start of the game, change the 
contents of line 345. 


1Q@ REM TILE CRAZY 

2@ REM iC! & MAHOGANY. 1982 

28 GOSUB 3248 

49 GOSUB cde 

SQ SOSUB 2eu 

SQ PRINT AT 16.5; "HWRICH ONE To 


L1Q IF Aix: 2ecaore °° “ THEN GoTda 


10@ 

120 PRINT AT 35,5," TO 
WHERE? ° 

130 INPUT °* | 

140 IF @tyi<+-Cope ° ° THEN GOTH 


186 LET Aly: sRin! 

160 LET Aix: =CoOpE 

178 LET Guosbuoel 

180 GOTa 54a 

260 REM $e FPRINT OUT #43 

210 PRINT AT 8.23; "G0 NUMBER "76 


230 PRINT CHRS$ AL1I: CHR AizI:¢ 
HRS ACSI; CHRS Rid}. 6o1llUuveUUCU 


c4 


HR A771; CHR 


250 
CHRS 
12" 


262 


,;OARS ALLS! ;°¢ 
S | 


16 


Tile Crazy 


PRINT (5). CHRS ALS! 


Coe 


PRINT © 
a oe 


PRINT © 


S),0HR$ AILS) 
les." 3 LO. 
1 
( 


RETURN 

REM +++ INITIALIZE ++ 
DIM ALLE: 

LET AS="DUNBGLAEOG HAMCKIF"’ 
FOR B=1 To 16 

LET AIB!: scope Asi(Bi 

NEXT §& 

LET Gosl 

RETURN 


15] 
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Wordsquare 


In this program, you enter a number of words that the computer then 
hides on a grid whose dimensions depend upon the length of the longest 
word in the list. If you find the task of trying to discover where each word 
is hiding too difficult, the computer will obligingly pick them out for you, 
in inverse letters. 


THE PROGRAM 


The program has been designed tn modules in an attempt to make it easy 
to understand and modify the flow. 


Lines 10 to 260 are the initialization process. The words to be used 
are stored in the string array CS. The longest word must be input first so 
that the size of the array can be determined. A check is made tn line 170 to 
make sure that none of the words is too long for the array. Any word that 
is too long is not accepted and a new word must be input. 


Lines 200 to 260 print the wordsquare grid onto the screen. 


Lines 270 to 550 are the main part of the program and actually fit the 
words into the square. A two-dimensional array is first set up to store the 
coordinates finally chosen for the characters in each word (H$). The 
current word ts assigned to variable J$, and random starting coordinates 
(X and Y) and displacements (Z and W) are chosen in lines 310 to 370. 


Lines 390 to 480 single-step through the word, fitting each character 
into the square and storing its coordinates temporarily in the two-dimen- 
sional array K. If the word runs off the square when the coordinates are 
incremented by the displacement, or if the chosen coordinates are already 
filled by an unsuitable letter from another word, the current word is 
Started again with new X, Y, Z, and W variables. Only when the current 
word has been completely fitted in will its characters be entered in the 
final array and be printed to the screen by lines 490 to 540. 


Lines 560 to 650 fill all the vacant spaces on the grid with random 
letters. If you do not wish to see the words as they are fitted into the grid, 
you can specify this at the start. The program will then only print in the 
words as it generates the random letters. 


Lines 700 to 750 will show you the positions of the words when you 
get bored of looking for them by inversing them on the square when 
requested to do so. 


Wordsquare 


There is also a visual indication of the progress made on each word as 
the program is running. 


THE VARIABLES 


Simple numerical variables 

A— Number of words in the list 

D— Size of the square (length of longest word plus 2) 
X— X coordinate _ 
Y— Y coordinate 

Z— Displacement to X coordinate 

W— Displacement to Y coordinate 


Simple string variables 

B$— Longest word 

D$—Current word input 

J$— Current word in square 

P$— Random letter 

R$—Set for secret generation of square 
Q$—Set for printing of answers 


Numerical arrays 
K— Temporary store of coordinates 


String arrays 
C$— List of words 
H$—Store for final positions for each letter 


All other variables are the control variables for loops involved in input of 
word lists, printing to the screen or arrays or character fitting. 

The longest word in the list should have no more than 18 letters or the 
grid will not fit onto the screen. About 20 words of varying length can be 
fitted in about 5 to 10 minutes. A longer list of words can result in a very 
frustrating wait. | 

It is a good idea to enter the words in descending order of length as 
this will speed up operation. The program is fascinating to watch in 
operation. 

Wordsquare was written by J. Elliott. 
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Word and Letter Games 


= ell il 
. 
ie 


0 ee foe 


mre 


4 Tite Ts 
-ADlH 
in 1 


NTRAUVOGNA ILE 
TALMMLSTGFES 
TPORKGT TOT NE 
MLTPNAN TOY 
HOP Y Lay TN IS 
UMTKUESAXETT 


FINISHED 


aca a 


UMTRKUE 


1 REM WOROSGUARE 


2 REM BY U ELLIOTT 

; 12_PRINT “TE YOU OG NOT WISH T 
i _ 
epee PRINT “THE ANSWERS THEN ENT 

“3Q PRINT “Nii, OTHERWISE PRESS 
BNTY KEY" 

40 LET RSsINKEY S$ 

SA IF Rg="" THEN GOTO 42 

6a CLs 

7Q@ PRINT AT 8,10; "WORDSQUARE' 

SQ PRINT AT 15.0; "HOW MANY WOR 
CS t 

90 INPUT © 

182 PRINT AT 15,0; "ENTER LONGES 


T WORD" 
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1210 INFUT EBS 

Lea DIM OS (eR. LEN Bs! 

L2Q LET osiil: s<B¢§ 

id@ FOR Ose To A 

180 PRINT AT 12.0; "ENTER WORD N 
WMBER sien 

168 INFUT O¢§ 


i°7Q@ IF LEN O$:Len 6$ THEN GOTa 


f= 
' 


O NEXT & 

32 REM NEXT 
SF eit 

eb PRINT AT 


ae LONTRINS 22 


erat” 
TRA 


‘a0 LET Peer aty 

RPRIWT AT is. Bi OS 

LET x=sINT PRND eB! i+] 

LET yvye=eINT TRNDSD) 41 

LET 2Zsint (RNGes! 

LET WelINT ‘RANOse3) 

IF 228 AND W=0 THEN GOTO St 


<« THEN LET Z=-1 
= igs oa LJ=—-1 


Ltt nhititehipin 


ON > fis Gye 


So eee 


Q 


DN ee 
Cara nn 


0 0g 008 ep ~.§ Oe 


rae a a 


mM 

To Js 

NGLE SPACE IN QuoTEe 
Y LINE 

=" "“ THEN GOTO 452 


425 SEM SINGLE SPACE IN GUOTE 


440 IF (No? Hie of) 5° "d AND CN 
TT {Hix o¥i sdgiLii) THEN GoTo 2c 
; 
ee 


LS .L-1:CHR$ (CODE 


aE 
PHCE IN QUOTE 


= ' TREN GOTO S48 

SiO LET HEIR IM. 1) KR IM,2)) sJSiM) 
eQ IF RgeON" THEN GOTO 240 

oO PRINT AT PM, 1) RIM, 235; ISOM 
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vt 


io 


" Che oho eye Fe che Te he *-- 


Te eye 


S40 NExT 


S50 WEXT & 
SS5 REM 15 sSPROCES IN NEXT LINE 
SEQ PRINT AT 13,08; " 
fe?a FOR Neji Toe GC 
Sta Far esi To 6 
Ss5 REM SINGLE SPaeCE IN QUOTE 
MARKS IN NEXT LINE 
$20 . TF NOT HEIN,PI =" “' THEN GOT 
bac 
SGQ LET FPSsCHRS (INT (RND26) +3 
1Q@ FRINT AT NPI PS 
20 SaoTa 642 
SQ PRINT AT NPS HEIN, P) 
4Q@ NExT & 
SQ NExT WN 
6Q PRINT AT 12,080: "FINISHED" 
7Q@ PRINT AT 228.0; "PRESS ANY KE 
FOR ANSWERS" 
SQ LET OSsINrey$ 
S8@ IF og$=°" TH - GOTO 889 


FOO FOR Nel Ta 
T7108 FOR Pel Te 
TiS REM SINGLE SPACE IN QUOTE 
MARKS Iti NEXT LINE 

2O IF HSIN,F: se" ' THEN GOTO 74 


Om ~. 


Qa 
FOO PRINT AT ON,P; CHR (CODE HEt 
Ni, Pi¢]Tes: 


740 NEXT &F 
YSOQ NEXT WN 


Fastermind 


This version of the game Mastermind (a registered trademark of Invicta) 
uses the letters A, B, C, D, E, and F. It chooses four letters (and letters 
may be repeated within the code), and you have to try to guess the code in 
as few tries as possible. As you'll see when you run the program, a correct 
letter in the wrong position will give a ‘‘+ ,” whereas a correct letter in the 
correct place gives a “**.”’ Invalid guesses are rejected. 

Fastermind was written by D. C. Owen. 


r 
Dc OWEN 
! 


O 
INT (RND#6) +1 


165 SCROLL 
168 PRINT “FASTERMIND ABCD E 


170 LET L=L+i 

188 SCROLL 

182 SCROLL 

185 PRINT “ENTER GUESS NUMBER °* 


190 LET K=PI-PI 
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rm 
a 
ty a 
it 
" 
Ti = 


157 


158 Word and Letter 
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wim fm 


Games 

NEXT 

PRINT TRE 10; CORED "; 
IF K=0@ THEN SOT S 450 
FUR 251 TO K 

PRINT ‘+ 

NExT Zz 

iF JG=8 THEN GOTO 4939 
FOR fst To J 

PRINT “4+ 

NEXT Zz 

IF Rig THEN GOTa 172 
SCROLL 

PRINT THE 2d1l:i."you OIG IT" 


RMIND A Bb o GD E F 
GUESS NUMBER 1 
Cr SCORED + + 
SUES: NUMBER 2 
iC SCORED + + + 
GUESS NUMBER 3S 
fis SCORED 4+ 
GUESS NUMBER 4 
i= SCORED + + 
GUESS NUMBER 
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Moles 


This program by D. Buckley will calculate the number of moles contained 
in a given amount of a given element. Full instructions are included within 


the program. 


REM “MOLES” 


REM © 


»-BUCKLEY 


= REM ASHTON GRAMMAR SCHOOL 


PEM lyse 


SLO! 
1@ PRINT 


1 

= 

+ REM ASHTON-U-LYNE 
5 


“THIS PROGRAM WILL CR 


LCULATE THE’ 


2Q PRINT “NUMBER OF MOLES CONT 
HINED IN wA° 

320 PRINT “GIVEN AMOUNT OF A GI 
WEN ELEMENT,” 

40 PRINT 

SQ PRINT “AR MOLE REPRESENTS TH 
E NUMBER" | 

60 PRINT ‘8s TIMES 10 TO THE 22 


RO POWER OR” 


78 PRINT 

IT. 

SQ PRINT 
a 

2Q PRINT 


a! 


WITH 23 ZEROS AFTE 
“TAGS NUMBER IS KNOLIN 


rN 


BRUARGADROS NUMBER es 


IT 1S TRE’ 

_28o PRINT “NUMBER OF ATOMS WE iJ 

SILO NEE" 

“ie PRINT “QF AN ELEMENT TO EGU 
HL ITs” 

Lee PRINT “ATOMIC WEIGAT IN GRA 
Ms, 

1T3Q PRINT “THUS WE LIDULD NEED 1 

MOLE OF” 

140 PRINT "HYDROGEN TO HAVE 16 
RAM OF" | 

152 PRINT “HYDROGEN, AND WE WOU 
LO NEED 1" 

1690 PRINT “MOLE OF OXYGEN TO HA 


VE 16 GRAMS" 


17@ PRINT 


“OF OXYGEN (OXYGEN HA 


> AN ATOMIC’ 


160 PRINT "WEIGHT OF 16)." 
190 PRINT 
200 PRINT Rod: C TO CONTINUE" 


e2Q IF INKEYS$<:"C" THEN GOTO 22 


249 OLS 


161 


162 Educational Programs 


ZO canes “ENTER THE NAME OF TH 
262 tg ‘FIRST, AND THEN THE 
ak cad “THE ELEMENT THAT YOU 


230 PRINT 

2-30 PRINT “I WILL USE THE FOLLO 
WING FORMULA” 

300 PRINT "TO ORK OUT THE NUME 
ER OF MOLES’ 


34@ PRINT | 
320 PRINT © WEIGHT 

330 PEIN, “e555 02> eeu =NO. OF 
340 PRINT “ATOMIC MASS" 


345 PRINT 
35@ PRINT “ENTER $5 TO START" 
360 IF INKEY$<:"S" THEN GOTO 36 
370 CLS 

$80 PRINT “ENTER THE NAME OF TH 
E ELEMENT ' 

399 INPUT as 

4022 IF AS="ALLUMINUM' THEN GOTO 
410 IF Ag="ANTIMONY' THEN GOTO 
420 IF Ag="ARGON' THEN GOTO 122 
430 IF Ag="ARSENIC" THEN GOTO 1 
ante IF Ag="BARIUM' THEN GOTO i4 
450 IF Ag="BERYLLIUM' THEN GOTO 
460 IF Ag='BISNUTH' THEN GOTO 1 
er IF AS="BORON' THEN GOTO 170 


4590 IF AS$="BROMINE" THEN GOTO 1 


saa 

#9 IF AS="CADMIUM" THEN GOTO 1 
4$90 IF AS="CALCIUM" THEN GOTO 2 
4522 IF A$="CARBON” THEN GOTO 21 
Ko 

S20 IF Ag="CHLORINE” THEN GOTO 
2200 

839 IF AS="CHROMIUM" THEN GOTO 
ne42 IF Ag$="COBALT" THEN GOTO 24 
ante IF Ag="COPPER' THEN GOTO 25 
S60 IF Ag="FLUORINE” THEN GOTO 
2500 


S7Q IF As$="GOLD" THEN GOTO 2789 
= IF AS="HELIUM' THEN GOTO 25 


IF AS= HYDROGEN’ THEN GOTO 


S92 
2500 
B02 IF AS="IODINE™ THEN GOTO 30 
Fi 
S10 IF A$="IRON" THEN GOTO 3102 
{220 IF AS="KRYPTON” THEN GOTO 3 
520 IF Ag="LEAD’ THEN GOTO 3302 
S40 IF RS="MAGNESIUM" THEN GOTO 
S50 IF Ag="MANGANESE" THEN GOTO 
_56e IF AgS="MERCURY" THEN GOTO 3 
Ek 
570 IF A$="NEGN” THEN GOTO 37e0 
aze@ IF AS=°NICKEL"” THEN GOTO 38 
K 
522 IF A$="NITROGEN” THEN GOTO 
4728 IF Ag= "OXYGEN" THEN GOTO 42 
Wk | 
710 IF Ag="FHOSPHORUS" THEN GOT 
3 4109 
ice IF AS="PLATINUM" THEN GOTC 
730 IF A$="POTASSIUM” THEN GOTO. 
ro & 
740 IF Ag="SILICON’ THEN GOTO 4 
© 
j5@ IF AS="SILVER" THEN GOTO 45 
ag2 IF AS="SODIUM" THEN GOTO 46 
72 IF Ag="STRONTIUM" THEN GOTO 
dy 
4,08 IF A="SULFUR" THEN GOTO 48 
Ke | 
"SQ IF @g=°TIN’ THEN GOTO 4902 
_7ee IF AS="'XENON' THEN GOTO S@2 
a | 
S10 IF Ag="ZINC" THEN GOTO 5102 
S15 PRINT 
S230 PRINT “I AM NOT PROGRAMMED 
FRR "JAS 
330 STOP 
1002 REM ALUMINUM 
19@5 CLs 


1810 es “ENTER THE WEIGHT OF 

THE ELEMENT" 

1015 PRINT “IN GRAMS" 

1820 INPUT #A 

18930 LET BsARve? 

1048 PRINT aT 18, 8;A;" GRAMS?’ 27 
',B; "° MOLES 

1080 PRINT 

1269 PRINT “ENTER C FOR ANOTHER 

ELEMENT" 

1970 IF INKEYS$<:"C" THEN GOTO i@ 

7 

19890 GOTa 272 

11190 CLs 
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li2a®@ PRINT “ENTER THE WEIGHT OF 
THE ELEMENT 

1125 PRINT “IN GRAMS” 

1138 INPUT aA 

1140 LET BsH-ieec 

1150 PRINT AT 18.0:;A;" GRAMS- le 


e= ";,;B;" MOLES" 

1160 PRINT 

1170 PRINT "ENTER C FOR ANOTHER 
FLEMENT" 


1180 IF INKEYS$<:"C" THEN GOTO 11 


6O 

1199 GOTO 27 

1205S CLS 

1219 oot. “ENTER THE WEIGHT OF 
THE ELEMEN 

1215 PRINT “IN GRAMS" 

1220 INPUT A 

deae5 LET B= 4a 

1230 PRINT AT 10,.0;AR;" GRAMS’ 40 
= at. Pe =r MOLES 

1235 PRINT 

1240 PRINT “ENTER C FOR ANOTHER 
FLEMENT " 

—" IF INKEY$<:"C" THEN GOTO le 


1250 GOoTa 37e 

13@5 CLs 

1319 ees "ENTER THE WEIGHT OF 
THE ELEMEN 

1315 SRINT "IN GRANS' 

13290 INPUT &A 

1325 LET 8=A-7S 

1332 PRINT AT (3i8,0;F5" GRAMS, 75 
— ee = MOLES 

1335 PRINT : | 

1349 PRINT “ENTER C FOR ANOTHER 
ELEMENT" 

1345 IF INKEYS$<:"C" THEN GoTo 1:2 


45 
13590 GoTo =7e 
1405 cLs 
1410 PRINT “ENTER TRE WEIGHT OF 
THE ELEMENT” 
1415 PRINT “IN /SRAMS" 
1420 INPUT #& 
1425 LET Bsn viz? 


14358 PRINT AT 12, Oi; GRAMS- 12 
eee = aia 

1425 PRINT 

1440 FRINT "ENTER C FOR ANOTHER 

FLEMENT* 


— IF INKEYS$::"C" THEN GOTa i4 
4 


1458 GoTa 27a 

15@5 eLs 

4510 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT" 

1515 PRINT “IN SRAMS" 

1520 INPUT 4 

1525 LET B=a-s 


T5330 PRINT AT 228,.0:;F7:° GRAMS as 
“1 Bi! MOLES" 

LESS PRINT | | 

15840 PRINT 'ENTE BP of FOR ANOTHER 

ELEMENT ” 

1245 IF INKEY$<.:"C" THEN GoTo 1s 


1605 CLS. 
“ENTER THE WEIGHT OF 


1615 Sen SRAMS " 


Lé2esS LET B=A-2eu 

1630 PRINT AT 18,0:8:° GRAMS. 28 
S2 ";B;" MGLes* 

1540 PRINT “ENTER © FOR ANOTHER 
LEMENT | 

OBd4dS IF INKREY$ "CO" THEN @GOaoTa 26 
Ss 

BSQ SoTaS 272 

7OS OLS 

Y1la PRINT “ENTER THE WEIGHT oF 
HE ELEMENT” 

TiS PRINT “IN SRAMS 

Ted INPUT 4S 

re 

! 2.0:54F SRAMS il 

os NOES 

735 PRINT .,.,, 

F4dQ oe “ENTER & FOR ANOTHER 
“°" TF INREY $<: "O0" THEM GaTa if 
Y5Q GOTG 272 
SMS CLS 
SilQ FRIST “ENTER THE WETGHT OF 
HE ELENENT’ 

SiS PRINT “IN GRAMS 

Sea INPUT & 

se LET aes 

BS2a PRI mY 3Y.0,F:" SRAMS.- &a 
ee = NOLES 

2S PRINT .:. 


“ENTER © FOR ANOTHER 


ft 
Ky 
n 
wT. 
b-4 
“a. 
| 


6 TER bb RR df BS TI eB Be Bo Be fb TD Be 
Coy 7 ie See " 
mm 
= 
m 
=~ 
Vr 


mn 
n= 
“a 
: 


E45 IP INEEYS:: "OC" THEN GoTa 1s 
45 

1550 GOTO 372 

L365 SLo 


“ENTER THE WEIGHT OF 
THE ELEMENT” 
i315 PRINT (IN GRAMS” 


Lses Ler S<4. ‘ide 

L250 PRINT AT 18.0:;A:" GRAMS 
=": Bs" MOLES” 

1940 PRINT “ENTER C FOR ANOTHER 
ELEMENT ° 


00 
a 
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j= 
(Cs 
> 
Ch 
b+ 
“Tl 
iH 
id 
““ 
J rm 
ut 
3 
4 
af 
mM 
Pid 
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-4 
rs 
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LS 
2010 PRINT “ENTER THE WEIGHT GF 
THE ELEMENT’ 
2015 PRINT “IN SRANMNS* 
2420 INPUT A 
2025 LET B=A-42 
eae ee ae .@°F: GRAMS: 40 
2035 PRINT is 2 22S 
2040 PRINT "ENTER C FOR ANOTHER 
ELEMENT" 
_ IF INKEY$<:"O" THEN GoTo 28a 


2050 GOTO 272 

2185 CLs } 

2110 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT” 7 

2115 PRINT "IN GRAMS" 

2120 INPUT A | 

2i2e5 LET 8sR- ie 

21se@ PRINT aus (ie, @:;A:" GRAMS, le 


2149 PRINT “ENTER C FOR ANOTHER 
ELEMENT" 
rie IF INKEY$<:"C" THEN GOTO 21 


2150 GOTO 372 
2205 CLS 
2210 PRINT “ENTER THE WEIGHT OF 


2e2iS PRINT "IN GRAMS" 

e220 INFUT & 

e225 LET Bears. 5 

2250 PRINT AT 10.0; ° GRAMS?’ 35 
252 ":B." MOLES" 

2235 PRINT .::: 

2240 PRINT “ENTER © FOR ANOTHER 
FLEMENT " 

_— IF INKREYS$<:"C" THEN GOTO 22 
4 


2252 GOTC 372 
2305 CLS 

2310 PRINT “ENTER THE WEIGHT OF 

THE ELEMEN 

2315 PRINT “IN GRAMS” 

232@ INPUT & 

2325 LET BsA-Sa 

2330 PRINT AT 12.0;A:" GRAMS- S2 
3 26; * HOLES” 

2335 PRINT . 

2340 PRINT “ENTER © FOR ANOTHER 

ELEMENT " 

2545 IF INKEYS<>"C" THEN GOTO 25 


e350 GOTO 372 
e405 CLs 


Moles 


edilQ FRINT “ENTER THE WEIGHT OF 
THE ELEMENT” 
2@e41S5 PRINT “IN GRAMS” 
ae INPUT 4&4 

eS LET BeH-is 
5430 PRINT ST 18,80:;8: °° GRAMS. & 
—s : E ; MOLES 
2455 PRINT . 
ed4a PRINT “ENTER Cm FOR ANOTHER 
ELEMENT" 
— IF IWREY$<:°C° TREN oTa ed 
2450 GOTO 272 
e505 CLs 
@S1@ PRINT “ENTER THE WEIGHT OF 


2515 PRINT “IN SRAMS” 


re 


eS2eQ INPUT 2 

2525 LET BsRve2z,& 

eS3Q PRINT AT 214,8:;80:° GRAMS. B23 
fos. fo. = MOSS 

@SasS PRINT ...; 

264@ FRINT “ENTER © FOR ANOTHER 
ELEMENT" | 
er IF INKE*YS-: “ THEN GoTo 25 
4& 

e550 G0OTU se 

2605 CLs 


J 


2610 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT ® 
2515 PRINT “IN SRAMS: 


5 
2530 PRINT “ar T2.0;8;" GRAMS. Ls 
= “;B;," MOLES 

z625 PRINT ..:; | 
2e6d¢e@ PRINT “ENTER C FOR ANOTHER 

FLEMENT " 

e645 IF INKEYS<:- °C" THEN GoTo 26 


2710 PRINT “ENTER THE WEIGHT OF 


2740 PRINT “ENTER © FOR ANOTHER 
£2 "°D" THEN GOTO ef 


ir 
J 
f> 
rn 
ae | 
“Tl 
| 
Pa 
“= 
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447 


1Q@ PRINT “ENTER TRE WEIGHT OF 


no Na AN Nh f Ny; 
oe AT oe OA 


fet -= FT > 
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2eSe25 LET Ban -4 

eSsQ0 PRINT AT 12.8.8: GRAMNSs 45 
“4,6; MOLES 

2ess5 FRINT ...:. 

2540 PRINT “ENTER © FOR ANOTHER 

ELEMENT" - 


= TF INREY$.:- °C" THEN GOTO 25 - 


2s5Q GoTo =7e 

e385 CLs 

2310 PRINT “ENTER THE WEIGHT OF 

THE ELEMENT 

2315 PRINT “IN SRAMS" 

293920 INFUT 4 

ese5 PRINT “RYSEOGEN HAS AN ATOM 
It WEIGHT OF* 

es2e PRINT “S09 THE NUMBER ©@F MOL 


ES. is 

esa, PRINT “RLBRYS EQUAL TO THE 
WE DSGHT " } 
2ee2o FRINT #8T 28,06:;F:° GRAMS, ile 
AS MOLES* 

2a3S5 PRINT ... 

2940 PRINT "ENTER © FOR ANOTHER 
ELEMENT " 

— IPF INKEYS$<:"C" THEN GOTO 24 


2350 GoTo 27? 
2085S OLS 
SQOBlLO PRINT “ENTER THE iEIGHT OF 
THE ELENENT’ 
SQ1S5S PRINT “IN GRAMS” 
2B20 INPUT #4 
S825 LET &=aA- —. 
JOS0 PRINT AT 22.80; FR:'° GRAMS. ile 
Ye “7 MOLES" 
S635 PRINT ae 
3SQ40 PRINT “ENTER ” FOR ANOTHER 
ELEMENT" 
— IF INREYS$<:"C" THEN GOTO sd 
S85O0 GSOTS 2372 
2105 CLS 
S110 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT" 
2115 PRINT "IN GRAMS" 
21290 INPUT A 
2125 LET B=A-56 
nde PRINT AT 10,.0;F:”" GRAMS- 56 
‘SB. MOEES” 
3135 PRINT .,, 
21490 PRINT "ENTER C FOR ANOTHER 
ELEMENT © 
7 IF INKEYS$<:"C" THEN GOTO 31 
2159 GOTO 372 
3205 CLS 
3210 PRINT ENTER THE WEIGHT OF 
THE ELEMENT 
S215 PRINT “IN GRAMS" 


Se2O INPUT A 
sees LET B= 782 
S250 PRINT AY 18,0;A;" GRAMS’ 83 


= ",6Bi." MOLES" 

3235 PRINT 

3240 PRINT “ENTER C FOR ANOTHER 
ELEMENT " 


7 IF INKEY$<:"C" THEN GOTO Se 

S250 GOTO 378 

3310 PRINT “ENTER THE WEIGHT OF 
EMENT" 


2315 PRINT “IN GRAMS" 

3320 INPUT #4 

Joe LET B=a-2e7 

gee PRINT er 18,0;A;" GRAMS’ 20 


a5 “5 PRINT 

2348 PRINT ‘ENTER C FOR RNOTHER 

EFLEMENT" 

3345 IF INKEYS$<::"C'' THEN GOTO 33 

4&5 

33520 GOTa 37 

23405 CLs 

34190 ee “ENTER THE WEIGHT OF 

THE ELEMENT” | 

2415 PRINT “IN GRAMS" 

3420 INPUT A 

3425 LET BsH-e4d 

3430 PRINT AT 186,6:A:'" GRAMSY e4 
', 6: "" MOLES" 

2435 PRINT a 

3449 PRINT “ENTER C FOR ANOTHER 

ELEMENT" 

ie IF INKEYS$<:"C" THEN GOTO 34 


4 
3450 SOoOTa 372 
2505 CLs 
3510 PRINT "ENTER THE WEIGHT OF 
THE ELEMENT © 
S515 PRINT "IN GRAMS" 
3528 INPUT &# 
3525 LET B=A-5S | 
353@ PRINT alm (1a, OB;A:; GRAMS, §5 
— ;B;:"' MOLES | 
2535 PRINT 
3548 PRINT "ENTER C FOR ANOTHER 
ELEMENT" 
— IF INKEYS$<:"C" THEN GOTO 35 


3558 GOTO 372 

36035 CLS 

3610 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT” 

S615 PRINT “IN GRAMS" 

3620 INPUT A 

32625 LET Bakr ee1 

2650 PRINT HT 18,08;A;" GRAMS?’ 2 
d= ",6;" MOLES" 
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2605 PRINT ..:: 

S640 PRINT “ENTER C FOR ANOTHER 
FLEMENT" | 

— IF INKEY$<:"C" THEN GOTO sé 


2650 GoTC 372 

32705 CLS 

2719 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT * 

3715 PRINT “IN GRAMS” 

3720 INPUT 

3725 LET B=A-2e 

3730 PRINT AT 18,0;A;" GRAMS, 22 


3748 PRINT “ENTER ¢ FOR ANOTHER 

ELEMENT” 

| re a IF INKREYS$::>"C" THEN GOTO 3? 
d 

=75Q GOoTC 372 

=2BQ5 CLs | 

2EB1e8 PRINT “ENTER THE WEIGHT OF. 
THE ELEMENT 

SB1S PRINT “IN SRAMS" 

2820 INPUT #H 

S825 LET Bs -5S3 

S558 PRINT AT 219,.0,87;:" GRAMS 
= E ; - MOLES” 


3340 PRINT “ENTER C FOR ANOTHER 
S345 IF INKEY$<c:"C" THEN GoTo 338 
jj 

3350 GoTo 272 

3305 CLs 

3918 PRINT “ENTER THE WEIGHT OF 


THE ELEMENT” 
3915 PRINT “IN GRAMS” 


i) 


Cal 
uf 
na 
JS 
Dr” 
nM 
-4 
il 
oe 
feos 
bb 


23,0;A;" GRAMS, 14 


3335 PRINT tan: 

S94@ PRINT “ENTER C FOR ANOTHER 
ELEMENT” 

ea IF INKEYS$<.:"C" THEN GOTO 33 
ee 


33850 GoTo =; 
40905 CLs | | 
4010 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT" 

4015 PRINT “IN GRAMS 

4020 INPUT # 

4@25 LET B=sH-Le 

4050 PRINT AT 18,686,808; °° GRAMS, 16 
— ry a eae MOLES *? : 
4035 PRINT Bs 

494 PRINT “ENTER C FOR ANOTHER 
FLEMENT" 

7 IF INKEYS<:"C" THEN GUTO 48 
4 
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4050 GCOTc 27@ 

4105 CLs 

4110 PRINT “ENTER TRE WEIGHT OF 
THE ELEMENT * 

4115 PRINT “IN GRAMS" 

4120 INPUT A 

4125 LET B=Avail 

4150 PRINT HY 1318,.6;8A;"° GRAMS?’ si 
= “6B. MOLES” 

4135 PRINT 

4140 a “ENTER Cc FOR ANOTHER 
ELEMEN 

4145 IF INKEYS$<:"C" THEN GOTO 41 


45 

41590 GOTO 3? 

4205 CLs 

4210 PRINT “ENTER THE WEIGHT OF 

THE ELEMENT" 

4215 PRINT "IN GRAMS" 

4220 INPUT A 

4225 LET B=H-i35 

4250 PRINT AT 18,0; 8;" GRAMS’ 19 
S= °",B;" MOLES 

42355 PRINT . ; 

4249 PRINT “ENTER C FOR ANOTHER 

FLEMENT" 

4245 IF INKEY$<:"°C" THEN GOTO 42 


45 

4250 GoTca 272 

4305 cCLs 

4310 PRINT "ENTER THE WEIGHT OF 
THE ELENENT" 

4315 PRINT “IN GRAMS” 

4320 INPUT A 

4325 LET B=ArS3 

4330 PRINT AT 228,0;8;" GRAMS, & 
= "4.6" MOLES” 

4335 PRINT .,.:., 

4340 PRINT “ENTER ¢C FOR ANOTHER 
ELEMENT’ | 
a IF INKEY$<:"C" THEN GOTO 43 
43590 GaTaG 37 

4465 CLS 

441224 PRINT “ENTER TRE WEIGHT QF 
THE ELEMENT" 

4415 PRINT "IN GRAMS" 

44220 INPUT A 
4425 LET BA -2e 
4430 PRINT aT 12.8;4; GRAMS’ 2s 
= S6." AOLES” 

4435 PRINT ....: 

4440 PRINT “ENTER C FOR ANOTHER 
ELEMENT" 
a IF INKEYS$<:"C" THEN GOTO 44 


443520 GOTU 372 

43505 CLs 

43510 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT" 

4515 PRINT “IN GRAMS” 


0 i) 


rt 
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4520 INPUT 4a 
45235 LET BeAr its 
45538 PRINT AP 10,0;A;" GRAMS’ 18 


Ss °,B;° MOLES 

4535 PRINT 

4540 PRINT "ENTER C FOR ANOTHER 
ELEMENT” 


4545 IF INKEYS$<s:"C" THEN GOTO 45 


45 

45590 GOTG 278 

4605 cCLs5 

4610 PRINT "ENTER THE WEIGHT OF 
THE ELEMENT" 

4615 PRINT "IN GRAMS" 

4620 INPUT A 

4625 LET &sA- | 

4630 PRINT aT “ia. O8;A:'"' GRANS-, es 


= ",B," MOLES" 

4535 PRINT . 

4649 PRINT “ENTER C FOR ANOTHER 
ELEMENT" 


— IF INKEYS$<:"C" THEN GOTO 46 


46590 GOTO 272 

4705 CLs 

4710 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT’ 

4715 PRINT "IN SRAMS" 

47290 INPUT # 

4725 LET 8B=A 8s 

4732 PRINT AT 18,20: a: “ GRAMS && 


Cts 


s+ °,B:i" MOLES" 

4735 PRINT ..,;, 

4740 PRINT “FNTER © FOR ANOTHER 
ELEMENT" 


_— IF INKEY$<:"°C" THEN GOTO 47 


4760 GOT 272 

4805 cCLs 

4310 PRINT “ENTER THE WEIGHT OF 
THE ELEMENT" 

4315 PRINT “IN GRAMS" 

4320 INPUT a 

4825 LET BskH-ae 

4530 PRINT AT 1¢,.0;A:° GRAMS, Be 


= ";Bi" MOLES” 

4835 PRINT ‘ 

4540 PRINT "ENTER C FOR ANOTHER 
ELEMENT” 


nae IF INKEY $<:"C" THEN GOTO 4é 


4 

4850 GaTu 278 

49305 cLs 

49180 PRINT VENTER THE WEIGHT OF 
THE ELEMENT 

43185 PRINT TN SRAMS" 

49206 INPUT 4 
4325 LET 8=H-i18 
4930 PRINT AT 2 
92 ";8;" MOLES” 
4935 PRINT ..:.: 


4940 PRINT “ENTER C FOR ANOTHER 
ELEMENT ” 

a IF INREYS<:: °C" TREN GoTo 4 
4. 

439590 GaoTo 37 
SO@S CLS 
SQ@1la FPRINT “ENTER THE WEIGHT OF 
THE ELEMENT ” 

SQ1S PRINT “IN GRAMS" 

SMQ@eOQ INPUT 4 

S@2S5S LET Bsa -ise 

Sasa PRINT ET 38@,.6:;8:" GRAMS. Is 
B= "5B; MULE = 

S@35 PRINT Be 

SO40 PRINT “ENTER Cc FOR ANOTHER 
FLEMENT ” 

SQ45 IF INKEY$<::'C" TREN sara Se 


45 

SQ5a cota 372 

5195 CLs 

S110 PRINT “ENTER THE WEIGHT OF 

THE ELEMENT * 

S115 PRINT “IN GRAMS” 

S122 INPUT & 

S125 LET B=A/85 

S13Q_PRINT AT 18,0;A;" GRAMS’ 65 
Bi" MOLES” 

5135 PRINT : 

5140 PRINT “ENTER C FOR ANOTHER 

ELEMENT " 

S145 IF INKEY$<:"C" THEN GOTO 51 


45 
S15se@ GOTUG 3? 


wi 


Moles 
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Combinations 
and Permutations 


This program, another one by Said Hassan, calculates combinations and 
permutations. You are first asked which calculation you want to perform. 

Lines 300 to 400 check that the input figures are numerical and lie 
within the machine’s capabilities. The permutation of taking n different 
items r at a time is given by the formula 


n! ' , 
naPr = ———— (n! 1s n factorial). 


(n—r)! 


For example, consider five different playing cards that have to be arranged 
in groups of three: n = 5,r = 3, and5P3 = 60. 
The combination of taking n items r at a time is given by the formula 


n! 
— _____—dl*f ft 
nCr Ga r! 


How many ways can three book titles be selected from five book titles? 


S5C3 = 10 


10 PRINT "'"c"' COMBINATIONS", 
meow PERMUTATIONS" 
2Q@ LET ASSINKEY§$ 
3Q IF Agsg="" GR (AS<>"R" AND AS 
<>"C") THEN GoTo 2@ 
40 PRINT “INFUT WN" 
SQ GOsuUaB 28a 
6Q LET N=sJlARL Ng 
7O@ PRINT °° INEUT RR” 
SQ GOSUB 28a 
GQ LET R=sVURL NS 
100 IF F<e<=eN THEN GOTO 1350 
110 PRINT “Toto HIGH" 
1290 GOoTG 72 
130 PRINT “CALCULATING” 
140 LET 2Z=sWN 
15@ GCSUB 412 
1560 LET &B=aA 
1708 LET 2Z=N-& 
189 GCOSUB 4:12 
19@ LET tC=x# 
QQ IF Ags" F °° THEN GOTO #2428 


Bet 


0 
THEN GOTS 


Combinations and Permutations 


IF INKEYS$="" THEN GOTO 268 
CLS 

LIN 

INPUT NS 

IF NS="" THEN GOTO SBYe 

CLS 

FOR xsl Tu LEN N& 

LF pe A BND NS tx <2” 
PRINT “EPROR RE-ENTER" 

SUTO Bee 

NEXT =x 

IF VAL NS<SG4d4 TREN RETURN 
PRINT “Too HIGH, RE-ENTER" 
SOTA wae | 


NEXT =x 
RETURN 
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Graph Plotter 


This program—which its fascinating to run—was written by R. Easto. The 
program plots the graph of any curve entered in the form “X*X — 2 + 
4*X” or even "1/X.” Line 130 is the heart of the program, where the 
VAL command puts Y equal to the values of X required by your formula 
(entered in line 100). The program allows more than one curve to be 
viewed at once. The three sample curves plotted are X*X, X*X*X + 
4°X*X, and 39/X. Do not use the shift **H” key (**) for powers of X as an 
error will result. 


14 FOR MsW Tuo 4s 
eS PLOT 28h 
SQ PLOT N,22 
a6 WET fh 
T@W INPUT H&S 
Pee FOR ®e-5 Gl & sftR .d 
 — =. a wa = Se ee ed . —e es . 
Gat IP 228 THEM HEeT = 
L308 LET YoaoVab HS 
148 IF vYido SND “s-da THEN FLL 
Rede oy eveeel 
LEB WEST & 
168 GOTO ive 
: 
= = . 
= = = 
= 
. A r 
= z = 
z a 
= F3 = 
= = # 
=. es 
=. : = 
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Square Roots 


This program will work out the square root of any number you enter. It 
first takes a guess (line 80) by picking any number between zero and the 
number chosen. The computer then refines that guess by division, over 
and over again, checking each time to see how close to the correct answer 
it is. Line 120 is not part of the computer’s checking apparatus (you can 
verify this by deleting the line) but is there simply so you can watch the 
action of the computer as it searches for the correct answer. 

Because the Timex/Sinciair 1000/1500 has a SQR function, this pro- 
gram Is of little practical use, but it is fascinating to run and watch how 
quickly it narrows in on the correct answer. In the two sample runs, the 
computer is looking for the square root of nine (example one) and of five 
(example two). 

Square Roots was written by Tim Hartnell. 


10 REM SGUARE ROOT SOLVER 
20 REM iCtHARTNELL 1982 


PRINT “HICH NUMBER Co you 


SQ PRINT “TO FIND THE SGUARRE F 
maT OFS" 

6@ INPUT & 

70 IF 6:28 THEN GoTea 8&8 | 

Ye SCROLL 
7S PRINT “THE SOURRE ROOT OF 


i ae 

7B SCROELL 

SO LET A=INT <‘RNDsbB) +1 

o@ LET x<<sm-/a 

100 LET six+hi “oe 

L110 SCROLL 

11S PRINT — 

11? SCROLL 

12@Q PRINT “ERROR ITS “;ABS (ty-8u 
GB CB 

128 


IF Asy THEN GoTO 162. 


160 SCROLL 
165 ScCRULL 7 
i170 PRINT "THE SQUARE ROOT Is 


Square Roots 


AS TCR Poo YOU WANT ME 
PS; FING THE SGUGRE PoOOT SF 
; OF 9g: 


SeeD 
ERROR Is 8,.¢5 
=, @@3615¢ 
FRROR Is .@@s8 Lease 
=, 8880154 
Te ,@8SOLsSs6asarz 


ERROR 
ERROP Is 2 
ERROR IS 2 
TRE SWUARE Boor I. 


ige 
Us 


AADC MUMBER GO YOU WANT ME 
TO PING THE 2HleRE ROOT OF? 
THE SgURRE oor OF §&: 


2,6c5 

ERROR ITs O@, 28832202 
ee 264581 

ERROR IS ,ge28ie3a7rs5 
2, 2562512 

FRROR TSB ,B8CLErSeT4AOd 
2.258068 

ERROR ITs FY, d¢505S06E-3 
2, 238068 

FRRGR TS 

2e,256068 

ERROR Is @ 

TRE SHUHRE BOT IS 2,236062 
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Calculator Emulator 


This program turns your Timex/Sinclair 1000/1500 into a powerful, albeit 
large, pocket calculator. It is imperative that the SIN, COS, TAN, and so 
on in lines 220 to 240 are entered using the function mode. Add other 


functions here if you like. It 1s a simple program to operate. You enter 


your sum just by expressing the numbers and operators (+, —, *, and so 
on). 

You can also use the functions by pressing the letter keys (there is no 
need to go into the function mode). Special keys used when entering a 
calculation are as follows: 


P—moves the cursor back one character to delete the last thing typed 
L—gives a subtotal of all the lines entered so far 
ENTER—enters the full calculation for computation 


The calculation can be up to 300 characters long. When you're entering it, 
there is no need to worry about going over the edge of the screen, as the 
computer will take care of all the spacing and the like. If you want hard 
copy of your output, add 525 COPY. 

Calculator Emulator was written by Nick Wilson. 


19 REM CALCULATOR EMULATOR 
2O eo NICK WILSON 
L 


L 
3Q PRINT CHRS$ re 
40 FOR I=1 TO 38 
5Q@ PRINT CHRS 3S; 
60 NEXT 1 
7@ PRINT CHRS 132 
BQ PRINT “§"; TAB 31; "f° 
90 PRINT CHRS$ 130. 
100 FOR Isl TO 30 
110 PRINT CHRS 131; 


NEXT I 
138 PRINT CHR$ les 

ee M=1 
150 IF M:3a THEN one 60a 
iSg3 PRINT AT 2.M. ‘mg AT 1, 
160 IF INKEYS<:"" THEN soto’ 160 
17@ LET AS=INKEY$ 


180 IF wAg="" THEN GOTO 17@ 
151 IF A$=CHRS$ 118 THEN GOTO 40 


a 
182 IF As="L" THEN PRINT AT 20, 
eFUAL CS;AaT I,m: 


155 


Calculator Emulator 


LET K$=sR 
m2 AS:>''?" AND AG<'"A' THEN G 
IF As='"F' THEN GOTO 3S9 

IF Ag$="G" THEN LET Ag="SIN 


IF Age" THEN LET Ag="COS 
IF AgS="E" THEN LET A§="TAN 
IF AS$="(R" THEN LET Aga" INT 
IF Ag$="R" THEN LET Ag§="RSN 
IF Ag$="S" THEN LET Ag="ACS 
IF Ags'D” THEN LET AS§="ATN 
=H" THEN LET Ag$="SO0R 


"Z" THEN LET AgS="LN “ 
x" THEN LET Ag="EXxP 


THEN LET Ag="PI" 
THEN LET Ag$="ABS 


THEN GOTO 176 


me ee | ee ee, a. = 
+ I+ OS 
 #- 
fp 
Tr 
we 


i> 8} 
+ 
I 
ft 


1 
LET Cg=c$i TO LEN (C$) -4) 
GOTO 
c 

S 
PRINT AT 12,0; VAL Cs 


PRINT AT 6.90;C§ 
AT 8,9; 
GOTO 38 
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Typing Test 


Despite the simplicity of this program by Nick Wilson, Typing Test 
provides a very effective way of forcing you to improve your typing. It 
won't be much use to you if you can touch type, but if you’re like most of 
us, and you attack your Timex/Sinclair 1000/1500 with two-finger work, 
this program will prove a boon. The program, after a random pause, 
prints a letter from the keyboard onto a random position on the screen, 
and then waits tor you to press the key. You have only a limited amount of 
time to press the correct key. A new test will then be given, after a short 
pause. 


109 REM TYPING TEST 
15 PAUSE FNDs200 
ee LET kK=@ 
25 CLs | 
38 LET RS$=SCRHRS (RNO+26+36! 
409 PRINT AT RNDs21,RND#31:K$ 
SQ LET ASa=INKEY$ 
60 LET K=skK4¢l1 
720 IF Keee THEN GOTO 130 
SQ IF Ags"" THEN GOTO §8 | 
E=K $ THEN PRINT AT @,8@; 


$ THEN PRINT AT 98,2 


120 RUN 
130 PRINT AT 2.2; “SS 


Morse Trainer 


You can master Morse code with the help of this 16K program from John 
Knight of Cheshire, England. When you run the program, a menu will 
appear, giving you the option of entering an English message and having 
it reprinted in Morse, or having the program generate a Morse symbol at 
random and give you three tries at entering Its English equivalent, or to 
end. 

Notice the use of the initialization subroutine starting at line 9000, 
which goes into FAST, then strips A$ down to elements of C$. To 
simplify later processing, C$(38) is the equivalent of CHR$(38), i.e., the 
letter A. The program tells you (line 2190) which letter a particular 
symbol represents if you don’t guess it within the three tries allowed. 


10 REM MORSE TRAINER 

20 REM (fC: JU RNIGHT,1932 
eT GOSUE saae | 
40 FUR G=i Te 16 


4§ RINT 


- ENGLISH TO MORSE 


< 
hs 
TW 
" 
- 
a. 
oof 
= 


INT “2 - MORSE TO ENGLISH 


PRINT “2 - To END” 


LIT 
1@8@ GOosvusa Ts1a20 
11@ GOTa 42a 
i4@@a@ REM ENGLISH TO MORSE 
28862 SCROLL 
1803 SCROLL 


ig1l? Sce 

1920 PRINT “ENTER YOUR MESSAGE" 
iv25 SC 

LYS PRINT “TRE i "PRESS ENTER" 
10490 INPUT ij 


1045 SCROLL 
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LOU5Q 
18ss 
4 

LOE 


MOA Lafjt 


GSOGSeeagagaanwis Ganw*asag— 


ey Ol 


eeNe Pa hac os Na Rane ns MMMM hs Nop ha fa he ha hs howe No hate 


es Ve Pee Ty De PD A TE eH be Ed BR BR BR --. 


peas (C00) Fe fe YF ee eT Cae ~~ 


re 


At 


Coe 
mate 
. 
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FOR Gei Te NM WS 

IF bifid: <<: “ THEN GOTO 108 
SCROLL 

SCROLL 

SOT Tes 

FRINT OSf(C0DE Wwsili) : 

LET Wwsstigic TO } 

NEXT & 

IF INKEY $= THEN GOTO 1128 
RET LRN 

PEM MORSE TO ENGLISH 

SCROLL 

SCROLL 

SCROLL 

PRINT “I tiILe GIVE you A LE 
IN” 

SCRULL 

PEINT “MORSE, ANG YOU RAAVE 
SCROLL 

PRINT ‘“SUESSES TO WORK OUT 
iy i= 5 - 

SCROLL 

SCROLL 

PRINT “PRESS ENTER WHEN You 
SCROLL | 

PRINT TRE “PERDY Tao START 
IF INKEYS="°'' TREN GOTS 2072 
LET 2208 

FOR 2Z=] To 16 

Let JstSeINT (RNOs261 
SCROLL 

PRINT “BHAT LETTER OCOES "70 
SCROLL 

FRINT TRE 232: ‘REPRESENT ?" 
PFOA Hot Tu os 

INPUT & § 

TF CObE (tnsieJ THEN GOTQ ee 
SCROLL 

SCROLL 

IF Hed THEN FRINT Csitdi;" & 
ENTS “:DHRS 6) 

HMEXxT 

SaTa 2258 

SCROLL , 

PRINT “YES. ‘(OU ARE RIGHT" 
LET SB28¢41 

SCROLL 

SCROLL 

PRINT four SCORE IS ";5;" 
noe 

SCROLL 

SCROLL 


a 
ess «7.1 
bl 
aS 
oe 
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e230 SCROLL 
ese SCROLL 
et1le@ NEXT 2 
ese RETURN 
S@@QW STOP 
S008 FRST 


S805 LET Hes, -+-, a eFrme te Ss %.F 
seme Frome tee setae Fe errr sen 2. mF ema tet em 
al el i eed I tee ie dented Diced 2 eee Oe Ee Oe ee 
Sense we. rr tase a a ck ee 2. ae 

i CIM Pee red, S&S) 

@ FOR B=08 TO 64 


sre ogce aie 
Cy Ey 


="" THEN GOTO 9080 
$+HS(1) 
gio 


S580 RETURN 
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Regular Polygons 


This short program calculates the interior angle of a regular polygon. Just 
enter the number of sides you wish the polygon to have, and the computer 
will tell you the interior angle, as the sample run shows. 


19 REM INTERIOR ANGLE OF 

2e@ REM A REGULAR POLYGON 

SQ PRINT “HOW MANY SIDES?" 

428 INPUT SIDES 

SQ LET ANGLE =160-SE60/5IDES 

6@ PRINT “AR REGULAR POLYGON OF 


'":SICES, " SIDES | 
70 PRINT “HAE INTERIGR ANGLES 
DF ' ANGLE 


HO) MANY SIDES 
A REGULAR POLYGON OF 3 SIDES 
HAS INTERICGR ANGLES OF 60 


HOW MANY SIDES 
A REGULAR POLYGON OF 2 SIDES 
HAS INTERIOR ANGLES OF © | 


HOW MANY SIDES” 
A REGULAR POLYGON OF 234 SIDES 
HAS INTERIOR ANGLES OF 176.46154 


Histogram 


This program plots a histogram, showing the relative frequency of the 
production of particular numbers by the RND function. If you run it 
longer, the probability of each number appearing should approach one. 
You can test this by changing the 300 in line 35 to 1200 and the 1 at the end 


of line 50 to .25. 


Histogram was written by Tim Hartnell. 


Ou J OO & CL De 


J» 
cy 


& aon ne 
GUEUGE 


SU 


REM HISTOGRAMS 

REM (0) HARRTNELL 1982 
FAST 

DIM Aloe: 


FOR D=i Ta 3e0a 
LET C=INT i(RNDs20) 41 
IF Ait: <38@ THEN LET Atci sat 


NEXT D 

SLOW 

FOR B=1 To 28 

IF &<18 THEN PRINT " "; 

PRINT 8; " 

FOR C=i To AB) 

PRINT ‘ae’; 

NEXT © 

PRINT 

NEXT & 187 


188 


Plotting Sine Curves 


This program illustrates the plotting and ons capabilities of the 
Timex/Sinclair 1000 and 1500. 


S FOR O=s=1 Te 2 

10 FGR AsO TG 10 STEP e 

2Q@ FOR x20. TO 10 STEP 4.1 

38 IF De : THEN PLOT 54X%48,10¢#5 
IN (x) 4104 

35 IF Gee THEN UNPLOT §$4x+A,198 
SIN (xX14128¢+A 

40 NEXT x 

SQ NExT # 

60 NEXT & 


_Alphasort 


This program sorts words or phrases into alphabetical order. You first 
enter (line 3) the number of elements you wish to sort, then enter the 
words one by one (line 60), pressing ENTER between each word. 


1 REM ALPHASORT 


e FPRINT “NO, 
3% INPUT 
4d OLS 


7 Oe NEXT ae 
See Far surg TO @ 
aQ FOR Sa TO @ 
108 LET BSsrngiT i 
7410 IF ASIT4T - 

T ! ei M4 
120 GOTa 1se2 
130 LET Ags iT} sag | (T4+1) 
140 LET AS'T+1: =BS 
i890 NExT T 


160 NExT Z 


175 FOR Tey To Ue STEP 
18Q SCROLL 

1ae8 PRINT ART! 

2OO NExT T 


TO BE SORTED" 


‘Ti >28$(T) THEN GO 


= is! ra i 


189 


190 


This program solves cubic equations—of the form f(x) = 


Cubic Equations 


cx + d—by the Newton method. 


18 REM #CUBIC EQUATIONS+¢ 
INPUT 


Se 3S4+BeE xe e¢4¢C +E 4+0 


fa 
Lat) 
b-$ 
Z. 
UD 
— 
| 
SS Sa 


a" 
j= 
a 
rr 
rm 
~- 
Mr» 
nuneon 


140 IF x=@ THEN GOTO Le 


190 IF ABS ‘tH- Big THEN GoTa 22 


320 PRINT “x=":G 


ax3 + bx2 + 


O-REG 
(Correlation/ 
Regression) 


Q-REQ is a correlation/regression program. It accepts your X data first 
of all, terminated by 999, and then the Y values. The program then 
calculates the various subtotals (sum X, Y, etc.), Pearson’s Correlation 
Coefficient, and the regression equation (linear). 

At this stage, press any key to continue. You are then able to 
interpolate/extrapolate this equation of the line by entering the X values, 
terminating by entering 999. 

At each stage of the program you are given the option of outputting 
the current information to the printer, assuming you’ve answered the 
PRINTER CONNECTED? question with a “*Y.”’ You can get the pro- 
gram to rerun by just pressing ENTER, or you can get it to stop by 
entering “*N, then pressing ENTER. 


2 PRINT "CORRELATION - REGRES 
STON", “PRINTER CONNENTED? (vy OF 
1 af 
3 INPUT Ps 
4 IF Pg$c2"¥" AND Pgee"N" THEN 


5S ¢oaTa is 

7 IF Ps2"N" THEN RETURN 

S PRINT AT 21,0; "PRINT THIS 
AGE 7" 

9 INPUT As 

1Q IF Rese OY THEN RETURN 

ii PRINT Ar 2i1,@; 


da cCURY 

13 RETURN 
15 DIM x te: 
20 DIM yy tee: 


25 CLs 
SO PRINT “ENTER x VALUES IN OF 
DER - ENO WITH 399° 


49 FOR I=i To 20 

SQ INPUT WN 

60 IF N=3395S THEN GoTo 1062 
65 PRINT WN 

7Q@ LET xirt: =n 


32 fe woe 25 MAX ALLOWED" 


19] 


192 
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ri PRINT 


Tt 


VALUES 


‘42a PRINT 


130 FOR J 

14@ INPUT 

158 oe 

160 LET ¥ 

172 NEXT 

17S GOSuUB 
ET 


ET 
e7O LET 


$3X5-SX 442 
218 CLS 
Jie PRINT 

y SY 


fu 

rm 

S 

n 
ne COoCSe Che Ose Cee, Coes Ch 
LO OM OO Oe Se 


6," 


“ENTER Y UALUES IN OR 


— fa a 


N 
ee 


tis sh 


F 
? 


one nt ED 


WOT tee tie DL ed 


Sa CCN | Me occ | 
eI Oe 


Te 


=. H+ 


koe, 


oF * 


M TAB A 
bo TAB a; "SUM oF 


= xy 


"' SUM OF xyY¥ ": 


2d PRINT 
MINAT ION 
336 PRINT 
340 LET & 
Sx $42} 

350 LET A= 
360 PRINT 
N EQUATION: 
wide Pit aa | 
+e 1; Bae 


x" 


S?l IF INKEY $=" 


sre GOSUB 
374 OCLs 
38@ PRINT 
OLATION 

330 PRINT 
4800 INPUT 


TRE 


I 
so N 


#357} 
Y#te) 


y O80 "5 


_PEARSONS 
NT" 


5; 
ROEFE ICIENT OF DETER 


S:Re 


“SOR Cit 


(ox, TAB @, "SU 
“SUM OF x = 


SQ"; 3x 
YS; TAB a 


CORRELA 


= (Te5xY ex eSY) / (128XS- 


so“ 
TA 


# 
| cd 


—= 
” 


-Sx /IsB 


FE LINERR REGRESSIO 


:Ai f+" AND SGN E 
BND SGN B<@), ABS 6," 


“ THEN G 


OTO Srl 


“INTERPOLAT ION-EXTRAP 
999 TO END" 


x 


x. 


Wf 11 


410 IF x=99S3 THEN GOTO 45@ 
4290 LET Y SH+B SX 
4390 PRINT x; TAB 10;¥ 


502 IF ASs< 
5108 STOP 


439 


= 
rf 


oo HT 21,0; ° 


492 INPUT AS 


TREN RUN 


ANOTHER 
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Graphics Toolkit 


This program is not a game, but it is included for its own value and also 
because it demonstrates how effectively the Timex/Sinclair 1000 and 1500 
graphics can be used. Written by Alistair Miller, the program allows you 
to draw a full-screen picture and save it on tape. You can draw circles, 
Squares, and diamonds anywhere on the screen. Also, the screen can be 
inverted, over and over again, to give a flashing effect. The full list of 
commands at your disposal is as follows: 


]—inverts the screen continuously 

O— halts screen inverting 

Q— type in a character number, followed by NEWLINE, and the screen 
will be filted with that character 

C— clears the screen and starts the program again 

W-——saves “PIC” (the display) on tape, so when you reload it, your 
picture comes up instantly on the screen 


R— enter a character of your choice, and a border will be automatically | 


drawn using that character 

P— enter the vertical and horizontal coordinates of your cursor, and it 
will be sent there | 

K— copies your picture to the printer 

H— makes the cursor invisible 

Ik type in a new cursor character, and it will be drawn as you’ve 
commanded 

S— this will halt the drawing of the border, the screen filling up, or the 
drawing of a circle, square, or diamond 

L— press *D” for a diamond, or ‘‘C” for a circle, or ““R”’ for a rectangle 


For a diamond, you need to enter the vertical and horizontal coordinates, 
the height, and then the character. For a circle, enter the vertical and 
horizontal coordinates, followed by the radius and then the character. 
The rectangle option expects the vertical and horizontal coordinates as 
— before, followed by the width, the height, and finally the character. 
Your cursor is controlled by the following keys: 


195 


196 Utilities 


1 REM 1Les4568 7890123456 789a 
S LET wH$="2RECKIO081 72623 7EFE? 
S2GOSLOFSCSECSESOrr1Ll8Fea" 
10 LET Z=zi 
20 FOR xel6sled TO 165323 
30 PORE x, ,15S240C0CE AS(Z:1+C0DE A 
$i(Z7+11-476 
48 LET 2Z=Z+¢2 
45 NEXT <x 


_ a SAVE TAN LEN 
f = 


e- on eonee ere SAVE TAN LEN 


‘a 
m 
f 
= 
ih 

}- 

EY 


iT 

+f : 
Tee 
ee oy 


JHA Cong 
mH 
—| 

Oye 


1Q@ PORE 
“BORDER " 


4@ FOR Ase TO 3S 

SQ PRINT AT @,A;CHRE BAT 21,A 
: CHARS E 

SS IF INKEYS$="3" THEN GOTO 18e 

680 NEXT A 

7O FOR Asli To 2 

7S IF THREY '$=°'5 

SQ PRINT AT #&,0; 
;CHRS B 

GQ NEXT -&® 
100 PORE 165 
art IF INKEY 

REY 


' THEN GOTO lee 
HRS B;AT A,sl 


oO 


; 2 
ey" TREN LET x=x- 
="B" THEN LET x=x+_ 


Graphics Toolkit 


IF INKEYS$="G" THEN LET Ysy- 
} 
ert Sener THEN LET Ysr+ 
f | 

TF INKEVY S$="T" THEN GOSUB Si 
IF INKEY $="U" THEN GOSUB 54 
IF INKEYg$="U" THEN GOSUB 5? 
IF INKEYS$='N" THEN GOSUE 6&2 
IF INKEY$="I'' THEN GOTO 7Se 
TF INKEYS="E' THEN GOTS 2ag 
IF Gei THEN GOT So 268 

SRINT are ar ae 

PRINT AT xvi" " 

PRINT AT x7, CARS 

IF INKEYS$='O'' THEN LET I= 
IF INKEY$="O" THEN GOTO 400 
IF INKEY$=s'C" TREN RUN 

IF INKEY $2" THEN SAVE "FTI 
IF INKEYs$="R' THEN GoTa 12 
IF INKEY$=<"F" THEN GOTO i188 
IF INKEY$="R" THEN GOTO 4332 
IPF INKEYS="K" THEN COPY 

IF INKEYS$="L" THEN GOTO 3ea 
IF INKEYS$=2°H" THEN LET @=-0 
IF I=si THEN GoTo 75a 

SOTO lege 

LET x=x- ca i 

LET vsye:! ae ie 

RETURN 

PET x2sxetxk: 13 

LET vYoeyrety<3@; 

RETURN 

LET x=x4 (20) 

LET Yeyety22) 

RETURN 

LET oeee tes (29) 

LET Yoyvery<3@: 

RETURN 

RAND USF LséS1l4 

FOR N=1l TO 18 

NEXT WN 7 

IF INKEY$<:"" THEN GOTO 100 
COoTa ?7se 

LET I=i 

IF &<128 THEN GoTa s6@ 

LET 8=B-128 

GOTO 108 

LET 8=64+1238 

GOTQ 188 

POKE 16413,e2 


PRINT AT 21,98; " 


x COORDINATE 
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1020 INPUT x 
1930 IF X<1 OR X>20 THEN GOTO 10 


12 
1849 PRINT AT 21,8; ""¥ COORDINATE 


1850 INPUT ¥ 
1@60 IF ysl GR ¥:+38 THEN GOTU 12 


= 

1078 FOR A=8 TO 19 

1980 PRINT AT 21,.AR;CHRS 5 

10930 NEXT A 

1108 GOTO iV 

2000 POKE 1641%.2 

2Q8id INPUT Cc 

eYeu IF €<@ OR £255 THEN GOTO 2 


2@Q30 POKE 16415,0 

2040 GOPO c5e 

SOOO PRINT AT ee¢,8, “OC SsDIRMOND.R= 
RECTANGLE.CSCIRCLE 


SQ@1@ POKE is84¢i15.e2 
S820 IF INKEYS="C" THEN GOTO 36 


B 
lg IF INKEY$="R" THEN GOTO se? 
ae IF INKEYS$="°0O" THEN GOTO 3?; 


S850 GOTO seu 
S850 PRINT Pr 2¢£2,0:;'"% COORDINATE 


3070 INPUT xi 
~BS0 IF X1<1 OR X1;>280 THEN GaTa 


3272 

3Q9@ PRINT AT 21,0; "¥" 

2100 INPUT yl 

ceo IF Yi<i OF 1:38 THEN GOTO 
S120 PRINT AT 21,8; "RADIUS * 


S13@ INPUT &F 
21idQ0 IF &iil GR +28 THEN GOTO sl 


Nt 


2 | 
sise PRINT AT 2€1,0; "CHARACTER * 


TO 214A 
TO Y1+R 


| 

ped pss 

i> 

ey 

a || 

= 

Tr - 
Mrjo0-4 
Pepe! TI 


* 


a 
a 
*, 


aa IF K<=G THEN PRINT AT Z,L;¢ 
laa IF INKEY$="5" THEN GOTO 12? 


sed NEXT L 

3250 NEXT 2 

3260 GOTC 1878 

serQ@ PRINT AT 22,0; "TOP LEPT x” 
2200 INPUT TL 
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2290 IF TLexsi GR TLX:+28 THEN GOT 
O 3258 

S300 PRINT AT 23,3; °7" 

S305 INPUT TLY 

2310 IF TLY<1 OR TLyY:+38@ THEN GOT 
CG 3385 

S315 PRINT AT 21,06; "WIDTH Fs 
S320 INPUT 1 

ae IF Wil GFR i>SO THEN GOTO ss 
SSG@ PRINT AT 21,0; "HEIGHT ? °" 
2335 INPUT # 

S348 IF Hil GOR H>20 THEN GOTO ss 
a=) 

S345 PRINT AT 22,0; "CHARACTER * 


- GOO Pons OH 
Y GQEQgggagegqggeaguwg Gnqganae 


IRIMIMINIAIRIRIRIMIRIRTRIMLAIOLOLOTRTA LAT ATE 


UN De 8 Be Be a a en ie a a a 00) 


INPUT <1 

FOR HaTix TO TLx+4+H-1 

FOR L=eTLy Ta Tly¢+W-1 

PRINT AT AL; CHRS Cl 

IF INKEY $=" sh THEN GOTO 19°? 


NEXT i 

NEXT 4 

SOTO Lard 

PRINT AT £1,808; "CENTER x” 
INPUT ox 

TF &x<c2 DOR CxX+28 THEN GOTS 


7 : as ¢1 
Hie CyY>S0Q THEN GoTo 
PRINT AT 21,0; "HEIGHT ee 
INPUT # 

IF Heil GR #H:>20 THEN SOTO 3° 
LET HsINT (‘Hee2) : 

PRINT AT 21,8; 'COHMARACTER 7" 


FOR ASSx-H TO Cx¢+H 
FOR Letve-ii TO Oy 4b 
PRINT AT A,L;CRHRS Cl 
.EY gh TREN GOTO 187 


IF fi:20% THEN LET ilsi-2 


O; “CHARACTER 7" 
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408Q PRINT AT Z, 
4035 IF INKEYS$=° 


O 

48990 NEXT 2 

4100 GOTOQ 1078 
4330 FPOKE l1684is, 
4540 PRINT AT el 
4350 INPUT xi 
4360 IF xi<i QF X*1>20 THEN GOTSd 


4370 PRINT AT 21,0; °"¥" 
438Q INPUT Yd 
4390 IF yi<cl OR Y1;>38 THEN GOTO 


4400 PRINT AT 21,0; "WORD 
4410 INPUT WSs 


4420 PRINT AT Xi,71, U5 
44390 GOTO 1879 


3 
' TREN GOTO 187 


= 
a 
F 


0, "x COORDINATE 


Label Printer 


As its name implies, this program allows you to use the printer to produce 
as many labels as you like, to a design of your choice. 

You'll be asked first to nominate the number of labels you want to 
print, and you will have the option of having them numbered sequentially 
or not. You then have to design the label. 

The screen clears, leaving a black cursor in the top left-hand corner. 
You can move it around using the keys “5,” **6,”’ “°7,” and “8.”’ The arrow 
on the key indicates the direction you'll move. If you press a letter key 
instead, that letter will appear on the screen. Moving the cursor around, 
and adding your information where you want it, allows a quite complex 
design to be created. The *‘9” key will clear the whole screen at any time. 
When you've finished your label and you’re sure that it 1s correct, press 
the "Q” key and the printing will begin. Add extra LPRINT lines between 
430 and 440 if you want the labels farther apart. 

Nick Wilson wrote Label Printer. 


12 REM LABEL PRINTER 
11 REM NICK WILSON 
ZQ PRINT AT 3,8; "LABEL PRINTER 


ec eel BT 18,0; "HOW MANY LAG 


24 INPUT MH 

28 PRINT AY 128,06; "D0 YOU WIS 
TO NUMBER THEM £7?" 

49 INPUT MS 

SQ LET M$=Nsi TO 1) 

6M REM GET DOCUMENT 


ELS 


100 LET v= 

ile’ GOSUB 3ea8a | 

i200 IF INKEYS="" THEN GOTO 128 
130 LET CstOQpe — 7 

335 LET ASsCHRs 

140 IF Celis THEN LET c= 

150 IF #28" THEN GOTO 489 
TQ IF Ags: °S" AND AS< "RA THEN G&G 
STO 2? 

1°78 GOSUB 2a? 

175 IF Asg='3" THEN GOTO 8@ 

220 IF Ags" 5" THEN LET x2x-l 
Ge IF Ags"'S" THEN LET x=x4] 
122 IF #8#s="'8° THEN LET Yeyel 
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Nit p> Ey 00 CO oe 


0 Tey Pos Pap pe pe pm 
Fy Ey Ey) On cs) 


" THEN LET y=¥-1 


YM; CHRS © 
1 
ate 
2 THEN GOTO 250 
sore 130 


{PEEK 1639642565 


LET CR=PEER 
168233; 4+ 225 
i eR +2SS THEN LET CR=CR- aS 
PRINT CHES CR 
RETURN 


IF Mg=2"¥" THEN LPRINT I; " 


Advertising Display 


This is a message display program suitable for advertising. You first 
create a screen by drawing, using “5,” “6,” “7,” and *8” to control 
direction. “1” turns the pen on, “2” turns it off. Once the screen 1s 
complete, press “S” to stop and then enter your message and the line 
number on which it is to appear. The message can be of any length. Once 
this is entered, return to the menu and select your next option. Type “‘S”’ 
to stop displaying a message. 

The program stores ten screens but only one message because of the 
variable length that message can be. 

Advertising Display was written by Paul Toland. 


1 OIM 38118, 704) 


10 PRINT “i-CREATE NEW SCREEN" 
_"e@-DISPLAY ExISTING SCREEN", "3- 
CHANGE MESSHGE® , "4-STOP" 


30. IF c<cl ‘OR tC >4 THEN GOTO 3@ 
49 IF C24 THEN STOP 
C=2 THEN GOTS 178 
42 PRINT "SCREEN NO. F (1-10:3" 
ia INPUT Nd 
ITF NO<2 OF NO+1@ OR NO<>+INT 

NO THEN iOTO 44 

43 IF Cs2e THEN GOTO 300 

SOQ PRINT “CREATE MAIN OISPLAY 


USING S,8,F +& TO CONTROL THE 
CURSOR” 

= PRINT ,; LSE 1 FOR §§ 2 FOR 
SPHE | ae $3 ws Ti STOP" 

7O LET x2sls 

75 LET S$:NuU.] TO YOds =" 

SQ LET vy=i 

S44 FOR [=i To §ev 

S56 NEXT I 

SQ PRINT AT 8:80, 58 (NO! SAT Y,x; 
+ 

SS IF INKEY$="°" THEN GOTa 35 


100 LET Is=INKEYS$ 
110 IF Ig="1" THEN LET C$="m" 
115 IF Ig=s"2" THEN LET Cg=s" " 


120 LET xK2k-f8s2"S"14+ (2 g2"5"3 
325 LET x=2e4i5e 201 -(e +3213 

L230 LET vay-iige"?"1¢+4(ITg=e"6") 
138 LET vYoyety <8) -f¥2:2e1) 

1486 LET S28 '°NO.¥e324¢X% 411 =U § 
LEQ IF Is="°5" THEN GOTO 17 
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160 GoTo ga 

170 PRINT AT 15.0; "ON WHICH LIN 
FE DO YOU WANT YOUR SENTENCE TO 
APPEAR 7 @-21" 

480 INPUT L 
Pais IF L<@ GR L>21 THEN GOTO 18 
200 PRINT " INPUT YOUR MESSAGE" 
295 INPUT Is 

210 LET L$=" 

ba + T $ + tt 

220 GOTS §& 

38@ PRINT AT @.0; S$(NG) 

310 FOR I=1 Ta LEN L$-Se2 

320 PRINT AT L:O@:;LE(I TO I+31! 
33@ IF INKEYS$="5" THEN GOTO § 
335 NEXT I 


COTO 3128 


Calendar 


This program, by Jim Archer, is designed to print out the calendar of any 
specified year, accurately and neatly, or else just a particular month of 
interest. You can also get it to start on the day of the week on which a 
particular date falls. It will work for any date after 1752 when 11 days 
were added to correct the Roman calendar. You can print out a wall 
calendar by using COPY after each month is displayed. | 


ra 
OR aL ENG See a 


= 4 ,EARE CALENDSE 
= JUST ONE MONTH OE 
Gc FIND CAY OF WEEK 


= "3 
IF INKEY$="" THEN GOTO 2¢e 
¢=INKEY$ 


Ny 
20 IF Wess" THEN GOTO 5@ 
3S IF W$='M" THEN GOTO 1800 
40 IF Ws="D" THEN GOTO 508 
45 PRINT "I BEG YOUR PARDON?" 
45 PAUSE 22 
43 GOTO 2a 
SQ PRINT o— OF CRLENDAR" 


6@ INPUT § 
S65 GOSUB igae 


7Q@ LET NM$s° URNUARY: SLFEBRURRY . 
eSMARCH: SLAPRIL: SBMAY: SLUUNE: SOU 
ULY: SLRUGUST: SLEEPTEMBER: 3@0CTOS 
FR: SINQUEMBEF: 2Q2DECEMBER: 31" 

75 LET J=@ 


12@ IF Mgivdics':" THEN GOTO 148 

120 LET NS=SNS+4MN$ (Ui 

130 GOTO ie | 

L489 LET O=VAL OM$id41 TO Je) 3 

15@ LET Jsd¢e 

160 IP FPse AND Srd4=INT (35741 AN 
CO (NOT SviB@=siINT (S-100; OR S748 
BW=INT (3-400: : THEN LET Ose9 

ae IF We=e'"hM° AND PcR THEN GOTO 
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Gece fe fs fs 
«JO Che aay 
Fy J Or 0] $F 


LJ 


WOOO = CG CC = 
Ge QUAM rEG- 
SSojJNsenge 


WESOR 


CLS 
IF LEN NS:4 THEN PRINT 
PR INT i: 3 Ss 


IF Es” THEN LET 6:8 

PRINT TRE - (44B4213 | 

PRINT ° : 

LET O2041 

TF Pele AND (Bbsz=eS GR D=26! 
SOTA 34¢ 


LET Ce=f-g42 
IF ceteINT (C+?) THEN GoSsuUsB 


IF bD:3 THEN PRINT " “",; 
IF 6:2 THEN GOTO 228 
STOFE 


LET tie t azSeg-O) -7 
LET QeINT (WeYVetINT Wie7e+.,.1 


IF G=@ THEN LET =? 


HEx<T F 

SLO! 

SOTO agsa 

IF OCr25 THEN PRINT > Sa 
IF C2se26 THEN PRINT ‘i"; 
SOTO 282 

PRINT “YOURE PULLING MY LEG 
NOW PUT IN & REAL DATE” 
PRINT “BATE? "; 

TNEEIT il 

PRINT w 


PRINT WMONTH? (NUMBER 1 


TF Psi SR P:+12 OR Usi OR U;> 
Pe +INT & THEN GOTO *Yoe9 
PRINT “YEGR? “; 
= 


17) 
a 
1-4 
wns 
~4. 
Coe 


SOSUE 11a8 


QO LET vYeINT (T-TsINT (TyvPi¢.l 


OW LET MSs Suh 
ad SEDNESDAYTHURSDAY FRIOHY 


IDRAY MONDAY Tv 


SATURDAY ° 


LET ooo 


Calendar 207 


235 SD35uUB gee 
S40 PRINT “ANY MORE?" 
SEQ INPUT is 
S6BQ IF iigs]{"¥° THEN GOTO Fee 
sre GoTo sass 
LEGO LET JsS8-28901 
TAS LET wxsB-tii+INT ¢hiedi -INT Ch 
SOO) ¢4¢INT thir dai 
TB! LET GaINT «k-PSeINT (xe Fi¢e.id 
1Qas@ IF wea THEN LET we, 
1948 RETURN 
L950 PRINT 
1060 PRINT 
1878 RETURN 
L1i@e@ IF 2 THEN woTt 11lse 
1110 IF Pst DF FPsll TREN LET ge 
+4 
Lied TF Psd GR Fs? THEN LET fistiie 
Liza IF Fst THEN LET wea-4+é 
iji4¢0 IF Fee THEN LET W=0+2 
1380 IF Pst THEN LET @=0+¢+5 
22360 IF Pas GR Psle THEN LET 92% 
+= 
Li7Qa@ FF Serae2&4§INT (Berd! TREN GoTd 
Lea 
118Q@ IF Fse THEN LET Geti4ed 
1130 IF @:7 THEN LET 320-7 
T1s8S RETURN 
1200 LET sue 
210 CUTS Lise 
149@ PRINT “THE NUMBER OF A MONT 
MH PLEASE" 
LEe@@a FRINT “MONTH TO BE PRINTED 
INUMBER: °,; 
18180 INPUT - 
1515 PRINT = 
1S1?7 IF Fei GR © +12 GR P.::INT F 
THEN GOaoTa i49a 
1820 PRINT “OF THE YEAR? "; 
18230 INPUT 5 
135 PRINT 53 
18490 GUSUB ig@dae 
1558 LET R=-P 
1569 GcoOoTa ss 


STOF 


Checkbook Balance 


This 16K program should help make sure your checking account does not 
become overdrawn—but if it does, Checkbook Balance will tell you. The 
program leads you through entering information regarding your account, 
gives you the option of altering a particular entry if needed, and at the end 
of the run prints out information on all the checks written (to whom it was 
made out, and why, and the amount), The program then prints out the 
final balance and, if necessary, gives you the good news that you are 
overdrawn. 
Checkbook Balance was written by Tim Hartnell. 


1@ REM CHES PREOOK BALANCER 

ev REM (CC: HARTNELL 1952 

190 SCROLL | 

110 FRINT “ENTER THE LAST BALAN 
CE KNOWN" 


126 PRINT “STARTING BALANCE $"; 


140 PRINT “ENTER, PRESSING RET 


ise PRINT “EACH ONE. DEPOSITS 
ADE SINCE” 

16S SCROLL 

1°08 SCROLL : 

17S PRINT “DEPOSIT. BALANCE" 
180 INPUT CEeP 

180 IF PEPSSe THEN GOoTa ed 

2830 LET BAL=BAL+CEP 

210 SCROLL 

220 PRINT DEP.BAL 

230 GoTa i18¢e 

249 SCROLL : 

250 FPRINT “THE BRLANCE BEFORE L 
ATEST" 

e255 SCROLL 

2629 PRINT “CHECKS WRITTEN WAS § 


fs 
Te 
att) 
: ‘Dtpcacsy 


MINT “Row MANY CHECKS HAVE 


vf 
aa | 
m1 
- 
r 
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S320 PRINT “WRITTEN SINCE THEN?" 
S30 INPUT NLM 

340 CIM AS INUMN, 22! 

250 DIM BiNtim: 

360 FOR Geil To NUM 

26S SCRULL 

270 PRINT “ENTER NAME MADE OUT 


382 INPUT N§ 
39@ SCROLL 
400 PRINT “ENTER REASON FOR CHE 


410 INPUT Ms 
LET A$ (Gi =NS+" Mg 


4590 PRINT “SND, HOW MUCH WAS CH 


46@ SCROLL 
499 PRINT ASIG:H;" - $"; BiG) 

495 SCROLL 

SQQ PRINT “IF THIS IS CORRECT P 
RESS RET." | 

512 SCROLL 

S20 PRINT “IF IT IS NOT ENTER “ 


S25 INPUT us 
S30 IF Ug="E" THEN GOTO 365 
S542 LET BAL =8AL-6 
545 SCROLL 
550 NEXT & 
S60 SCROLL 
S70 SCROLL 
§8@ PRINT “THIS IS A RECORD OF 


S30 SCROLL 

SOO PRINT “CHecrs Ta BATE: " 
610 SCROLL | 

Bea SCROLL 

630 FOR Geli Ta NUM 

640 SCROLL 

PeSQ@ PRINT #Agitis' |- SE": B16) 
660 NEXT & 

B7O SCROLL 

675 SCROLL 

GBS PRINT “FINAL BALANCE IS ":6 


830 SCROLL 

708 SCROLL 

S00 PRINT “ENTER ""R"" TO RUN T 
HE PROGRAM * 

$19 SCROLL 

S20 PRINT TAB 3; "FROM SCRATCH’ 
$30 SCROLL 

848 PRINT “GR “"B"" TO RUN FROM 


S5@ SCROLL 
SOQ PRINT THE +; "CURRENT BALANC 


S/O SCROLL 


5 
= 
D 


oll 
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SSO PRINT “OR O'R’ FOR A DETAI 
LED" 


S90 SCROLL 

900 PRINT THB 4+; "PRINT-GUT OF € 
HECK S” 

9190 SCROLL 

9289 PRINT TAB Le: 'WRITTEN' 
S330 SCROLL 

949 PRINT “OR “"E'' To END" 
950 INPUT Us 

960 IF Ug=s"FR" THEN RUN | 
S70 IF Ugs"B" THEN GOTO 125 
S8@ IF Us="F' THEN GOTG 1620 
999 IF Ug="E" THEN STOP 

18000 GOTO 35@ 

1010 REM #4PRINT GUT s+ 

19020 FOR G=l1 Ta NUM 

1930 LPRINT #AS{(G) , BiG) 

1040 NEXT G 

10590 GOTC 63¢ 


Tim Hartnell 


rege 
Timex/Sinclair 1000 ond 1500 


Planet Earth is in danger! Your assignment: Defend a cube of space 
from invading alien craft. Your spaceship Is fully equipped with a 
Timex/Sinclair 1000 or 1500 as its on-board computer; as the con- 
troller, the rest is up to you! 


This is only the beginning of the adventure and excitement you'll tind 
in Between the Stars, just one of 70 games you'll find here for your 
Timex/Sinclair personal computer. 


70 GAMES FOR THE TIMEX/SINCLAIR 1000 AND 1500 provides 
ready-to-run programs for all levels of programmers—trom begin- 
ners to advanced games enthusiasts. You'll find a wide range of pro- 
grams, including: 


¢ games of intrigue like Space Docker, Pharaoh's 
Revenge, Sea Raider, and Jet Fighter 


¢ driving games like Grand Prix, to test your driving skills 
at speeds up to 200 mph 


¢ board games, card games, and music programs 


¢ word and letter games, like Anagrams, Poetry, and 
Wordsquare 


¢ educational programs like Fastermind, Graph Plotter, 
Square Roots, Typing Tutor, and more! 


Whether you’re interested in mastering Morse code, writing poetry, 
or playing Galaxy Patrol, this collection of programs for the Timex/ 
Sinclair 1000 and 1500 has the fun and games you’ve been waiting 
for! 


ADDISON-WESLEY PUBLISHING COMPANY 
Reading, Massachusetts » Menlo Park, California 
London * Amsterdam ¢ Don Mills, Ontario * Sydney 


Timex/Sinclair 1000 and Timex/Sinclair 1500 are registered -TS@N O-2m1-30b4-4 
trademarks of the Timex Computer Corporation | 


